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

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

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

?

1 2 3 4 5 6 7

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

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

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

Ответ : программа выводит все числа от 5 до 34

program Variant2;
var b: integer;
begin
  b:= 5;
  repeat
    write(b, ' ');
    b := b + 1;
  until (b = 35);

end.       

program Variant2;
var b: integer;
begin
  b:= 5;
  while (b < 35) do
    begin
    write(b, ' ');
    b := b + 1;
    end;
end.