Среди четырехзначных чисел выбрать те, у которых цифры образуют возрастающую...

0 голосов
29 просмотров

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


Информатика (12 баллов) | 29 просмотров
Дан 1 ответ
0 голосов

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.

(942 баллов)