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

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

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

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

1. Объясните что делает эта программа (что будет выведено на экран и почему)
2. Перепишите её с помощью цикла repeat/until
3. Перепишите её с помощью цикла for

1. Выполняет цикл от 1 до 100 в каждом цикле прибавляется к переменой 5

2. var i: integer;
   begin
     i:=1;
     repeat
       write(i, ' ');
       i:=i+5;
     until (i>100);
   
     readln();
   end.

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