Question

Составьте программу для нахождения суммы всех чисел от А до В. Используйте цикл FOR на примере задачи в классной работе.

Answer 1

var a,i,k,b,sum:integer;

begin

read(a,b);

for i:=a to b do begin

sum:=sum+i;

end;

write(sum);

end.

Answer 2

program Hello;

var i,summ,a,b:integer;

begin

summ := 0;

readln(a);

readln(b);

for i:= a to b do:

   summ = summ + i;

end;

writeln(summ);

end.