Question

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

Answer 1

Данная программа вывела: -2

Answer 2

В програме было сделано ответ:-2