Задачи Урок 12.2

Задачи Урок 12.2:

1) Имеется программа:
var i: integer;
begin
for i:=5 to 34 do
write(i, ' ');

readln();
end.

Ответьте на вопросы/выполните задания:
Что в ней происходит?
Что будет на экране после её выполнения?
Перепишите её, используя цикл while.
Перепишите её, используя цикл repeat/until.

программа выполняет цикл for, выводя целые числа от 5 до 34
окно вывода : 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

решение с циклом while:

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

  readln();
end.

решение с циклом repeat/until:

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

2) Напишите программу, которая выводит на экран ряд чисел с помощью цикла for:
1 5 9 13 17 21 25 29 33 37 41 45

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

3) У вас есть программа, использующая цикл while:
var i: integer;
begin
i:=1;
while i begin
write(i, ' ');
i:=i+5;
end;

readln();
end.

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

Программа с циклом while выполняется, пока значение переменной i меньше или равно 100. На каждом витке цикла переменная i увеличивается на 5.
окно вывода : 1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76 81 86 91 96

решение с циклом repeat/until:

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

решение с циклом for:

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