Дано трехзначное число. Вывести "Yes", если его цифры образуют возрастающую или убывающую последовательность. В противном случае вывести "No".

Question

Информатика

Варлам

15 июля, 06:07

Дано трехзначное число. Вывести "Yes", если его цифры образуют возрастающую или убывающую последовательность. В противном случае вывести "No".

+1

Ответы (1)

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

Лизавета · Answer 1

Const N=10;

var i, b, s: integer;

a: string;

begin

readln (b) ;

a : = inttostr (b) ;

for i : = 1 to length (a) do

if (strtoint (a[i]) > s) then

s : = strtoint (a[i])

else

s:=10;

if (s = 10) then writeln ('No') else writeln ('Yes') ;

end.

Удачи =)