Дано трехзначное число. Вывести «Yes», если его цифры образуют возрастающую или убывающую последовательность. В противном случае вывести «No».
Дано трехзначное число. Вывести «Yes», если его цифры образуют возрастающую или убывающую последовательность. В противном случае вывести «No».
Ответ(ы) на вопрос:
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.
Удачи =)
Не нашли ответ?
Похожие вопросы