Question

Составить задачу для нахождения суммы всех трехзначных натуральных чисел.

Answer 1

var i,s : longint;
begin
  s:=0;
  for i:=100 to 999 do s:=s+i;
  writeln(s);
end.