СРОЧНО
Определите, что будет напечатано в программе:

Var i, x:integer;
Begin
x:=2;
for i:=100 to 1000 do x:= - x;
write (x);
End.
Ответ:

Сбросить ответы