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

mrmrheik    2   16.04.2020 00:24    0