30 БАЛЛОВ!!!! Вычислите сумму всех целых чисел в диапазоне [a;b], где a, b-целые числа.

Question

30 БАЛЛОВ!!!!
Вычислите сумму всех целых чисел в диапазоне [a;b], где a, b-целые числа.

Answer 1

Program e;uses crt;var i,a,b,k: integer;beginread(a,b);for i:= a to b dok:= i+i;writeln(k);end.

Comments

program e;uses crt;
var i,a,b,k: integer;
begin
read(a,b);
for i:= a to b do
k:= i+i;
writeln(k);
end.