Question

изменить программу так чтобы она считала сумму целых чисел от A от B

Answer 1

Var a,b,i,sum: integer;
begin
sum:=0;
writeln('Введите A: ');
readln(a);
writeln('Введите B: ');
readln(b);
for i:=a to b do
begin
sum:=sum+i;
end;
writeln(sum);
End.