Запишите число, которое будет напечатано в результате выполнения следующей программы. Правильный ответ 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.
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.
More Questions From This User See All
Answers & Comments
Ответ:
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;