Среди четырехзначных чисел выбрать те, у которых цифры образуют возрастающую последовательность (например: 1389, 4678)

Последняя тема Цикл for

Question

Информатика

Настасий

22 января, 04:03

Среди четырехзначных чисел выбрать те, у которых цифры образуют возрастающую последовательность (например: 1389, 4678)

Последняя тема Цикл for

+1

Ответы (1)

Знаете ответ на вопрос?

Арефий · Answer 1

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.

Среди четырехзначных чисел выбрать те, у которых цифры образуют возрастающую последовательность (например: 1389, 4678)Последняя тема Цикл for

Среди четырехзначных чисел выбрать те, у которых цифры образуют возрастающую последовательность (например: 1389, 4678)

Последняя тема Цикл for