Задача 3 Урок 12.2

Задача 3 Урок 12.2

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

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

Объясните что делает эта программа (что будет выведно на экран и почему)

Программа выводит цифры с шагом 5

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

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

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

Var a: integer;
begin
  for a:=1 to 100 do
    if (a mod 5)=1 then
      write(a,' ');
readln();
end.