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

Question

Информатика

Иосиф

5 апреля, 11:12

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

+1

Ответы (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.

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