Задать вопрос
9 апреля, 17:58

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

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

+1
Ответы (1)
  1. 9 апреля, 21:24
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Среди четырехзначных чисел выбрать те, у которых цифры образуют возрастающую последовательность (например: 1389, 4678) Последняя тема Цикл ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы