Ответы
Ответ дал:
0
var a,b,c:Integer;
begin
Read(a,b,c);
if (a<b) and (b<c) then
WriteLn('В порядке возрастания')
else if (a>b) and (b>c) then
WriteLn('В порядке убывания')
else
WriteLn('Нет');
end.
Нажимаем "лучший ответ"
begin
Read(a,b,c);
if (a<b) and (b<c) then
WriteLn('В порядке возрастания')
else if (a>b) and (b>c) then
WriteLn('В порядке убывания')
else
WriteLn('Нет');
end.
Нажимаем "лучший ответ"
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад