Question

viết chương trình tính tổng của n số tự nhiên lớn hơn 4, biết tổng đó nằm trong khoảng từ 0 đến 4000

Answer 1

var i,n,s:longint;
begin
readln(n);
s:=0;
for i:=4 to n do s:=s+i;
writeln(s);
end.

Answer 2

uses crt;

var n,t:integer;

begin

clrscr;

n:=5;

t:=0;

while t<=4000 do 

  begin

t:=t+n;

n:=n+1;

end;

writeln(t-n);

readln;

end.