Выделите операторы, образующие тело цикла.
[Var i, x : integer;]
Begin
[x:=0;]
For i:=1 to 10 do
Begin
[Write(x);]
[x:=x+i;]
end;
[Write(i)]
End.

КристинаМельникова    2   11.05.2020 22:32    11