Program baitap;
Uses crt;
Var Tn,i:longint;
Begin
Clrscr;
i:=1;
Tn:=0;
While Tn<=1000 do
     Begin
     Tn:=Tn+i;
     i:=i+1;
     End;
Writeln('Can cong ',i,' so tu nhien dau tien');
Readln
End.

__________________________

Đã test code

Điều kiện: Khi tổng Tn nhỏ nhất lớn hơn 1000 thì kết thúc hoạt động lặp

Mô tả thuật toán bằng liệt kê:

- B1: S 0, n 0

- B2: Nếu S ≤ 1000, n n + 1; ngược lại chuyển tới Bước 4

- B3: S S + n và quay lại Bước 2

- B4: In kết quả: S và n là số tự nhiên nhỏ nhất sao cho S > 1000. Kết thúc thuật toán( thuật toán chỉ dừng lại khi S>1000)

(Nếu bạn cảm thấy câu trả lời mình khó hiểu bạn có thể tham khảo thêm trên sách giáo khoa hoặc các trang mạng khác để dễ hiểu hơn nhé - chúc bạn học tốt) #iva3012

Bổ sung thêm phương trình mà bạn yêu cầu

+ (chương trình tìm số n để tổng

Phương trình:

program vidu1;

uses crt;

var s, n: integer;

begin

S: = 0;

n : =0;

while S 1000 laf ', S);

end.

+ (số 45 là số nhỏ nhất có tổng

phương trình:

So n nho nhat de 1/n

Running" d: \pascal\bin\i386-win32\vidui.exe "

So n nho nhat de tong > 1000 laf 45

Tong dau tien > 1000 laf 1035