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