Задача 7 урок 10.1

Primary tabs

Submitted by Red_rol on Wed, 01/12/2022 - 19:29

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