Question

Составьте программу вычисления суммы чисел в диапазоне от 1 до 100.

Answer 1

var s,i: integer;

begin

s:=0;

for i:=1 to 100 do s:=s+i;

write(s);

end.