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

1

Ответы и объяснения

2013-10-16T21:51:49+00:00
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.

Удачи =)