35 БАЛЛОВ!!! Var i, x:integer; Begin x:=2; for i:=100 to 1000 do x:= - x; write (x); End. Ответ:
Данная программа вывела: -2
Спасибо
В програме было сделано ответ:-2