Урок 10.1 Задача 9

Primary tabs

Submitted by Dennis80 on Wed, 05/04/2022 - 09:28

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

var i : integer;

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