Вводятся три целых числа. Выведите YES, если они расположены в порядке неубывания (каждое следующее больше либо равно предыдущего), NO иначе.

Пример 1

Ввод Вывод

1 2 3 YES

Пример 2

Ввод Вывод

1 3 2 NO

Пример 3

Ввод Выво

д

1 3 3 YES

Question

Феоктист

19 октября, 09:34

+2

Ответы (1)

Знаете ответ на вопрос?

Аксюня · Answer 1

Var a, b, c:integer;

begin

readln (a, b, c) ;

if (a<=b) and (b<=c)

then writeln ('YES')

else writeln ('NO') ;

end.

Пример:

1 3 2

NO