Question

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

Answer 1

Pascal
var
a,b,i,sum:Integer;
Begin
 Read(a,b);
 for i:=a to b do
  sum:=sum+i;
Writeln(sum);
end.