Question

требуется выяснить какое число будет выведено в результате выполнения следующей программы:
var n, s :integer;
begin
n:=0;
s:=1000;
while s>=100 do
begin
s:=s-2;
n:=n+1;
end;
write(n)
end.

Answer 1

Відповідь:

1

Пояснення:

while s>=100 do (s=1000)

s:=s-2;  (1000-2=998)

n:=n+1; (0+1=1)