1) Что будет напечатано на экране в результате выполнения следующей программы: . A:=1; B:=5; WHILE A<B...

1) Рассмотрим первую программу, чтобы понять, что она напечатает на экране:

A := 1;
B := 5;
WHILE A < B DO
BEGIN
    WRITELN(A, B);
    A := A + 1;
END;

Эта программа использует цикл WHILE DO, который будет выполняться пока условие A < B истинно. На каждом шаге цикла будет выполняться следующее:

• Выводятся значения A и B на экран.
• Значение A увеличивается на 1.

Давайте разберем каждый шаг:

• Изначально A = 1, B = 5. Условие 1 < 5 истинно, поэтому выполняется тело цикла:

  • На экране будет напечатано: 1 5
  • Затем A увеличивается до 2.

• Теперь A = 2, B = 5. Условие 2 < 5 все еще истинно:

  • На экране будет напечатано: 2 5
  • A увеличивается до 3.

• Далее A = 3, B = 5. Условие 3 < 5 истинно:

  • На экране будет напечатано: 3 5
  • A увеличивается до 4.

• Теперь A = 4, B = 5. Условие 4 < 5 истинно:

  • На экране будет напечатано: 4 5
  • A увеличивается до 5.

• Наконец, A = 5, B = 5. Условие 5 < 5 ложно, цикл завершается.

Таким образом, на экране будет напечатано:

1 5
2 5
3 5
4 5

2) Заменим цикл FOR на цикл WHILE DO для второй задачи. Рассмотрим исходный код:

FOR I := 1 TO 50 DO
BEGIN
    CISLO := CH / ZN;
    S := S + CISLO;
END;

Этот цикл FOR выполняется от 1 до 50 включительно. Мы можем заменить его на цикл WHILE DO следующим образом:

I := 1;
WHILE I 

1) На экране будет напечатано: 1 5 2 5 3 5 4 5

2) Программа с циклом FOR заменена на следующее: I:=1; WHILE I

1) В результате выполнения данной программы будет напечатано: 1 5 2 5 3 5 4 5

2) Цикл FOR можно заменить на цикл WHILE DO следующим образом: I:=1; WHILE I