Задание 7 Урок 10.1

Primary tabs

Submitted by sunsen on Tue, 02/08/2022 - 15:52

Переберите в цикле все числа от 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