Tin học GIÚP EM Ạ EM ĐANG CCẦN GẤP

[nhungtuyetbui08@gmail.com]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

/Em hãy viết chương trình tìm số n sao cho tổng các số từ 1 đến n nhỏ nhất và lớn hơn 1000(Biết n nhập từ bàn phím)

 

[Oralie]

Đây bạn nha
uses crt;

var n,i,s:integer;

begin

clrscr;

n:=1;

s:=0;

repeat

s:=s+n;

n:=n+1;

until s>1000;

writeln(n);

readln;

end.