Question

Даны натуральные числа А до В(В<А). Написать программу, выводящую на экран сумму натуральных чисел от В до А включая В и А.

Answer 1

program zuevyuliya;
var a,sum,b:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
for a:=a to b do
inc(sum,a);
writeln('sum=',sum);
end.