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

Primary tabs

Submitted by Desyatkina on Sat, 09/25/2021 - 19:13

Ответьте на вопросы/выполните задания:
Перепишите её, используя цикл 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.