Чему будет равен фрагмент программы, если N=10 и M=2? SUM:=0; K:=M-1;
while K begin
for I:=K-M+2 to K do SUM:=SUM+I;
K:=K+M;
end;
for I:=K-M+2 to N-1 do SUM:=SUM+I;

matyusha47    3   31.10.2021 01:21    2