Цикл с параметром - Turbo Pascal (247958)

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

Цикл с параметром. Сумма цифр трехзначного числа кратна 7, само число также делится на 7. Найти все такие числа.

Решение задачи: «Цикл с параметром»

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

var i,s,n1,n2:integer;
begin
for i:=100 to 999 do
    begin
    n1:= i div 100;{Первая цифра}
    n2:=(i mod 100)div 10;{Вторая цифра}
    s:=n1+n1+n2+i mod 10;{Сумма цифр}
    if (s mod 7 = 0)and(i mod 7 = 0) then{Проверочка}
      write(i,' ');
    end;
writeln;
end.

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

Введенные переменные: i, s, n1, n2 (тип данных - integer).
Цикл for, который выполняет операции для чисел от 100 до 999.
Внутри цикла происходит деление числа на 100 и получение первой цифры (n1).
Затем происходит деление остатка от деления на 10 и получение второй цифры (n2).
Далее происходит сложение первой цифры, второй цифры и остатка от деления на 10 (s).
Если сумма цифр и само число делятся на 7 без остатка, то выполняется проверка и число записывается в файл.
После выполнения цикла происходит запись в файл символа новой строки.