Решение 1 Задача 1 Урок 12.2

Primary tabs

Submitted by Vitaliy123 on Tue, 10/19/2021 - 18:32

Имеется программа:
var i: integer;
begin

  for i:=5 to 34 do
    write(i, ' ');
 
  readln();
end.
Перепишите её, используя цикл while.

var i: integer;
begin
i := 5; 

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

КОНСОЛЬ

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