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;