Viết chương trình tìm số tự nhiên n sao cho tổng n số tự nhiên tính từ 1 nhỏ nhất lớn hơn 500.
Mn giúp mình với ạ, mình đang cần gấp ạ!!!
Viết chương trình tìm số tự nhiên n sao cho tổng n số tự nhiên tính từ 1 nhỏ nhất lớn hơn 500.
Mn giúp mình với ạ, mình đang cần gấp ạ!!!
program oken;
uses crt;
var n,i: longint;
begin
clrscr;
n:=0; i:=1;
while n<=500 do
begin
n:=n+i;
i:=i+1;
end;
Writeln(‘n=’,n);
readln;
end.
var n,s:integer
begin
while s<500 do
begin
inc(n);
s:=s+n;
end;
write(‘So can tim la: ‘,n);
readln
end.