Question

[TNhi]

Cho chương trình Tính Tổng Các Số Tự Nhiên Từ S=1+2+3+ ...... (Khi Tổng S đầu tiên > 1000 thì dừng). Hỏi cộng bao nhiêu số?

Hãy Tìm lỗi trong chương trình và sửa lỗi viết lại chương trình cho đúng:

Program     tinh_tong;

Var         n  S: Integer

Begin

n:  0;

S = 0;

While S< 1000 do

n:= n + 1; 

                   S:= S + n

            Writeln(‘Can cong’,n-1,’so va tong dau tien > 1000 la’, S);  

    Readln;

End.