Question

Даны два целых числа А и В(А<В).Найдите сумму всех целых чисел от А до В включительно.

Answer 1

var a,b,s:integer;
begin
read(a,b);
for a:=a to b do
s+=a;
writeln(s);
end.