Даны три числа. Проверить, записаны ли они в порядке возрастания или убывания. паскаль.

Question

Информатика

Клара

13 июня, 12:28

Даны три числа. Проверить, записаны ли они в порядке возрастания или убывания. паскаль.

+5

Ответы (1)

Знаете ответ?

Магда · Answer 1

Var a, b, c:Integer;

begin

Read (a, b, c) ;

if (a
WriteLn ('В порядке возрастания')

else if (a>b) and (b>c) then

WriteLn ('В порядке убывания')

else

WriteLn ('Нет') ;

end.

Нажимаем "лучший ответ"