Question

Запишите число, которое будет напечатано в результате выполнения следующей программы. Правильный ответ 35, но у меня получается 25. Напишите, пожалуйста, подробное объяснение var s, n: integer; begin s := 0; n := 75; while s + n < 150 do begin s := s + 15; n := n - 5 end; writeln(n) end.

Answer 1

Ответ:

35

Объяснение:

прога с трассировкой по шагам

var

 s, n, st: integer;

begin

 st := 0;

 s := 0;

 n := 75;

 while s + n < 150 do begin

   s := s + 15;

   n := n - 5;

   ListBox1.Items.Add(Format('Шаг %2.d      s=%d  n=%d ', [st, s, n]));

   Inc(st);

 end;

 ListBox1.Items.Add(Format('Ответ : %d ', [n]))

end;

Answer 2

В данной программе используется цикл while для выполнения определенного блока кода до тех пор, пока условие истинно.

Исходное значение переменных: s = 0 и n = 75.

Цикл будет выполняться до тех пор, пока сумма переменных s и n меньше 150.

На каждой итерации цикла значение переменной s увеличивается на 15, а значение переменной n уменьшается на 5.

1. Первая итерация цикла: s = 0 + 15 = 15 n = 75 - 5 = 70

2. Вторая итерация цикла: s = 15 + 15 = 30 n = 70 - 5 = 65

3. Третья итерация цикла: s = 30 + 15 = 45 n = 65 - 5 = 60

4. Четвертая итерация цикла: s = 45 + 15 = 60 n = 60 - 5 = 55

5. Пятая итерация цикла: s = 60 + 15 = 75 n = 55 - 5 = 50

После пятой итерации сумма переменных s и n будет равна 125, что меньше 150. Цикл прекратит свою работу, и программа выведет значение переменной n, которое будет равно 50.

Таким образом, правильное ответ на вопрос - число, которое будет напечатано в результате выполнения программы, равно 50, а не 35.