Найти все трехзначные числа, которые при увеличении на 1 делятся на 2 - Pascal ABC

Формулировка задачи:

Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5

Решение задачи: «Найти все трехзначные числа, которые при увеличении на 1 делятся на 2»

Листинг программы

const
    N = 5;
var
    i: 100..999;
    k: 1..N;
    flag: Boolean;
begin
    for i := 100 to 999 do
    begin
        k := 1;
        repeat
            flag := ((i + k) mod (1 + k) = 0);
            Inc(k);
        until ((Not flag) Or (k >= N));
        if (flag)
        then
            Write(i:4);
    end;
    WriteLn;
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal ABC. Он предназначен для поиска всех трехзначных чисел, которые при увеличении на 1 делятся на 2. В начале кода объявляются необходимые переменные: N (максимальное значение трехзначного числа), i (переменная для хранения текущего числа), k (переменная для хранения текущего разряда числа), flag (флаг, который указывает на то, делится ли текущее число на 2 без остатка). Затем следует цикл for, который проходит по всем трехзначным числам от 100 до 999. Внутри цикла переменная k устанавливается равной 1, а затем в цикле повторяется проверка условия: если сумма текущего числа и k делится на 2 без остатка, то переменная flag устанавливается в true, иначе переменная flag устанавливается в false. После этого увеличивается значение переменной k на единицу. Цикл повторяется до тех пор, пока условие ((Not flag) Or (k >= N)) не будет выполнено. Если в процессе выполнения условия найдены трехзначные числа, которые делятся на 2, то они выводятся на экран. В конце кода выводится символ новой строки, чтобы перейти на следующую строку вывода. Таким образом, данный код выполняет поиск всех трехзначных чисел, которые при увеличении на 1 делятся на 2.