Задача 7 Урок 10

Primary tabs

Submitted by Fara on Sun, 11/28/2021 - 11:51

Перебирите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

var i: integer;
begin

    for i:=1 to 100 do
        if ((i mod 7) = 0) then
                write(i, ' ');

    readln();
end.

КОНСОЛЬ:

7 14 21 28 35 42 49 56 63 70 77 84 91 98