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

Урок 10.1

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

var i: integer;

begin

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

  readln();

end.

КОНСОЛЬ

36 39 42 45 47 48 49 51 53 54 55 57 59 60 61 63 65 66 67 69 71 72 73 75 77 78 79 81 83 84 85 87 89 90 91 93 95 96 97 99 102 105 108 111 114 117