Дано 3-х значное число. Определить образуют ли цифры упорядоченную последовательность.
10-11 класс
|
var
n, m, d: integer;
begin
Write('Введите трехзначное число: ');
Readln(n);
if (n < 100) or (n > 999) then
Writeln('У Вас странное представление о трехзначных числах!')
else begin
d := n div 100; {старшая}
n := n mod 100;
m := n div 10; {средняя}
n := n mod 10; {младшая}
if (m > d) and (n > m) then
Writeln('Цифры следуют в возрастающей последовательности')
else if (m < d) and (n < m) then
Writeln('Цифры следуют в убывающей последовательности')
else Writeln('Цифры не образуют монотонную последовательность')
end
end.
Тестовое решение:
Введите трехзначное число: 159
Цифры следуют в возрастающей последовательности
Язык программирования?
Другие вопросы из категории
этих сопротивлений.
помогите пожалуйста))
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
Помогите упростить ... только поэтапно, законы не надо объяснять просто поэтапное упрощение ... "Ответы появятся здесь в ближайшее время" ндааа...
Читайте также
Определить,равен ли квадрат этого числа учетверённой сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52-отрицательный. 3. Дано двузначное число. Определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. Дано трёхзначное число Определить,равен ли квадрат этого числа сумме кубов его цифр. 5. Дано двузначное число,определить:входит ли в него цифра 3: входит ли в него цифра a.
число и определить, какие цифры встречаются несколько раз (через repeat и until)///
ввести целое число и найти сумму его цифр (через while)
ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)
всё через паскаль абс
2)Определить 35 простое число(программа +блок схемы)
3)Дано:трехзначное число ,определить :является ли произведение его цифр трехзначным числом(программа+блок схемы)