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

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

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

Перепишите её, используя цикл while.
Перепишите её, используя цикл repeat/until.

Решение:

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

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

  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
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
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