Урок 12.2 (Решенные задачи)

lesson 12

1)Перепишите код заданной программы с помощь циклов: "While" и "Repeat/until".

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
       writeln(i, ' ');
       i := i + 1;
     end;
end.

(Используя "Repeat/until")

var i: integer;

begin
  i := 5;
  repeat
    writeln(i, ' ');
    i := i + 1;
  until (i = 35);
end.

2)У вас есть программа, использующая цикл while. Перепишите ее с использованием циклов "For" и "Repeat/until"

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

(С использованием цикла "For")

var i: integer;

begin

i := 1;
  for i:= 1 to 100 do
   if ((i mod 5) = 1) then
   writeln(i, ' ');
end.

(C использованием цикла "Repeat/until")

var i: integer;

begin
  i := 1;
  repeat
    writeln(i, ' ');
    i := i + 5;
    until (i >= 100);
end.