Program noname; //НАЗВАНИЕ ПРОГРАММЫ
Var e,d,c,x:integer; //ОПИСАНИЕ ПЕРЕМЕННЫХ
Begin
For x:=100 to 999 do //НАЧАЛЬНОЕ И КОНЕЧНОЕ ЗНАЧЕНИЕ ЦИКЛА (1 шаг)
(трехзначные числа)
Begin
c:=x div 100; //НАХОДИМ СОНИ
d:=(x div 10) mod 10; //НАХОДИМ ДЕСЯТКИ (шаг 2)
e:=x mod 10; //НАХОДИМ ЕДИНИЦЫ
If (e>d) and (d>c) then Writeln (x); (шаг 3)
//ЕСЛИ ЕДИНИЦЫ БОЛЬШЕ ДЕСЯТКОВ И ДЕСЯТКИ БОЛЬШЕ СОТЕН
End;
End.
Этапы решения
1 шаг) находим диапозон трехзначных чисел
2 шаг) находим цифры числа
3 шаг) сравниваем цифры числа и выводим число требуемое по условию
|