Среди четырехзначных чисел выбрать те, у которых цифры образуют возрастающую последовательность (например: 1389, 4678)
5-9 класс
|
Последняя тема Цикл for
program z1;
var x1,x2,x3,x4:byte;
begin
for x1:=1 to 6 do begin
for x2:=x1+1 to 7 do begin
for x3:=x2+1 to 8 do begin
for x4:=x3+1 to 9 do begin
writeln(x1,x2,x3,x4)
end
end
end
end;
readln
end.
Комментарий удален
Другие вопросы из категории
Читайте также
2. Дано шестизначное число n. Определить сколько раз в нём повторяется минимальная цифра.
натуральных двузначных чисел. Определить
среднее арифметическое нечетных чисел;
№3 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить
верно ли, что среди введенных чисел есть число, в котором первая цифра в два раза больше последней.
ых чисел сколько таких, что все цифры разные