Дано трехзначное число. Вывести «Yes», если его цифры образуют возрастающую или убывающую последовательность. В противном случае вывести «No».
10-11 класс
|
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.
Удачи =)
Другие вопросы из категории
умножь на 2
прибавь 5
Первая команда умножает число на 2, вторая увеличивает его на 5.
Программа для Калькулятора — это последовательность команд.
Сколько есть программ, которые число 3 преобразуют в число 47?
Мой ответ 6,я решала деревом.Правильный ли он?
Читайте также
Определить,равен ли квадрат этого числа учетверённой сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52-отрицательный. 3. Дано двузначное число. Определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. Дано трёхзначное число Определить,равен ли квадрат этого числа сумме кубов его цифр. 5. Дано двузначное число,определить:входит ли в него цифра 3: входит ли в него цифра a.
является ли это число палиндромом?
все ли его цифры разные?