|
Pascal задача буду очень благодарен
- Автор темы nintens
- Дата начала
VPS/VDS от 0.02€
Продавец
Это рекламный пост.
Мы знаем, что многие из вас интересуются качественным хостингом серверов. И так, чтобы это были не реселлеры, а прямые поставщики со своим датацентром!
https://aeza.net/ — это то, что тебе нужно! Быстрый хостинг от 4.94€ в месяц! Огромное количество локаций и качественная техническая поддержка.
Aeza — управляей мечтой!
-
Автор темы
- #3
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.