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

Primary tabs

Submitted by Desyatkina on Sat, 09/25/2021 - 19:24

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

Выводит числа от 1 до 100 с шагом 5

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

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

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

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