Запишите число, которое будет напечатано в результате выполнения следующей программы. Правильный ответ 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.
Ответы
Ответ дал:
0
Ответ:
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;
Приложения:
![](https://st.uroker.com/files/45b/45b3ab7b8b190773a51643242e84727e.png)
Вас заинтересует
1 год назад
1 год назад
7 лет назад
8 лет назад