РЕШЕНИЕ: var sum,i: integer; begin sum:=0; for i:=1 to 10 do sum:=sum+i; writeln (sum); end. Задание. Исправить программу,

Question

РЕШЕНИЕ:

var
sum,i: integer;

begin
sum:=0;
for i:=1 to 10 do
sum:=sum+i;
writeln (sum);
end.

Задание. Исправить программу, считать сумму в любом другом диапазоне.

РЕШЕНИЕ: var sum,i: integer; begin sum:=0; for i:=1 to 10 do sum:=sum+i; writeln (sum); end. Задание. Исправить программу, считать сумму в любом другом диапазоне.