Question

Самостоятельно составьте программу подсчёта суммы всех целых чисел от 10 до 500 включительно. S=((5*b+d*(n-1))*n)/5

Answer 1

var i,s:integer;

begin

s:=0;

for i:=10 to 500 do

s:=s+i;

write('s=', s);

end.