Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 979 ответов!

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

10-11 класс

Jsjsjksdr 15 дек. 2016 г., 6:14:48 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
чакин
15 дек. 2016 г., 8:10:52 (7 лет назад)

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,я решала деревом.Правильный ли он?

Читайте также

1.Дано двузначное число.Определить: a.какая из его цифр больше,первая или вторая; b. одинаковы ли его цифры. 2. Дано двухзначное число.

Определить,равен ли квадрат этого числа учетверённой сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52-отрицательный. 3. Дано двузначное число. Определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. Дано трёхзначное число Определить,равен ли квадрат этого числа сумме кубов его цифр. 5. Дано двузначное число,определить:входит ли в него цифра 3: входит ли в него цифра a.

дано целое число n<=(больше равно) 9999

является ли это число палиндромом?
все ли его цифры разные?



Вы находитесь на странице вопроса "Дано трехзначное число. Вывести «Yes», если его цифры образуют возрастающую или убывающую последовательность. В противном случае вывести «No».", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.