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

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

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

var i:integer;
  begin
    for i:=1 to 100 do
        if ((i mod 7)=0) then
           writeln(i);
    readln();
  end.



var x, i:integer;
  begin
    x:=0;
    for i:=1 to 100 do
        begin
             x:=x+1;
             if (x=7) then
                begin
                  writeln(i);
                  x:=0;
             end;
        end;
    readln();
  end.