Объяснение:
summa := 0;
for i:= a+1 to b-1 do
begin
writheln(i);
summa := summa+i;
end;
writeln (summa);
Объяснение:
summa := 0;
for i:= a+1 to b-1 do
begin
writheln(i);
summa := summa+i;
end;
writeln (summa);