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

Primary tabs

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

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

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

var i: integer;

begin
i := 5;

  repeat
    write(i, ' ');
    i := i + 1;
  until(i > 34);
  
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