|
-
Ищем качественного (не новичок) разработчиков Xenforo для этого форума! В идеале, чтобы ты был фулл стек программистом. Если у тебя есть что показать, то свяжись с нами по контактным данным: https://t.me/DREDD
Требуется услуга Pascal задача буду очень благодарен
- Автор темы nintens
- Дата начала
program numb;
var
a,b,c:integer;
begin
readln (a,b,c);
if a+b>c then writeln ('Можно')
else writeln ('Нельзя');
if b+c>a then writeln ('Можно')
else writeln ('Нельзя');
if a+c>b then writeln ('Можно')
else writeln ('Нельзя');
end.
var
a,b,c:integer;
begin
readln (a,b,c);
if a+b>c then writeln ('Можно')
else writeln ('Нельзя');
if b+c>a then writeln ('Можно')
else writeln ('Нельзя');
if a+c>b then writeln ('Можно')
else writeln ('Нельзя');
end.
