Задание 2 Урок 12.2

Задание 2 Урок 12.2

У вас есть программа, использующая цикл while:

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

• Объясните что делает эта программа (что будет выведено на экран и почему)
• Перепишите её с помощью цикла repeat/until
• Перепишите её с помощью цикла for

Ответ 1

1. Определяем тип переменной
2. присваиваем переменной i значение 1
3. выводим на экран значение i
4. задаем значение +5 от предыдущего
5. повторяем цикл пока значение i меньше или равно 100

Ответ 2(Перепишите её с помощью цикла repeat/until)

var i : integer;

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

  readln();
end.

Ответ 3(Перепишите её с помощью цикла for)

var i,a : integer;

begin
  i := 1;
  a := 1;
  for i := 1 to 100 do
    if i = a then
    begin
    write(a, ' ');
    a += 5;
    end;

  readln();
end.