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

Primary tabs

Submitted by Eugene on Sun, 03/17/2024 - 10:36

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

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

Что в ней происходит? Что будет на экране после её выполнения?

С помощью цикла for происходит вывод на экран чисел от 5 до 34.

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

var a:integer;
begin
  a:=5;
  while a<34 do
    begin
      write(a,' ');
      a+=1;
    end;
  readln();
end.

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

var a:integer;
begin
  a:=5;
    repeat
      write(a,' ');
      a+=1;
    until a>34;
  readln();
end.