Решение 2 Задача 2 Урок 12.2

Урок 12.2

У вас есть программа, использующая цикл while:

var
   i: integer;
begin
  i:=1;

  while i<=100 do
  begin
    write(i, ' ');
    i:=i+5;
  end;
 
  readln();
end.

Перепешите её с помощью цикла for

var  i: integer;
begin
 
  for i:=1 to 100 do
  begin
  
    if (((i+1) mod 5) = 2) then
      write(i, ' ');
      
  end;
  
  readln();
end.

КОНСОЛЬ

1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76 81 86 91 96