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

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

Имеется программа:

?
var i: integer;
begin
  for i:=5 to 34 do
    write(i, ' ');
 
  readln();
end. 

Ответьте на вопросы/выполните задания

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

1. Вывод от 5 до 34
2. Набор чисел
3. Перепись с помощью while

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

4. Перепись с помощью repeat/until

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