Запишите, сколько раз будет выполнен цикл, заданный в программе:
Var s, k:integer;
Begin
S:=0;
for k:=-5 to 10 do s:=2*k+s;
writeln(s)
end.

кака231    2   21.05.2020 07:29    0