Question

Viết chương trình tính tổng của các số tự nhiên n đến tổng đầu tiên lớn hơn 1001

Giúp mk vs ạ chiều nay mk thi cuối kì 2 gòi 

 

Answer 1

Var n,s:integer;

Begin

n:=0;

While s<=1000 do

begin

n:=n+1;

s:=s+n;

End;

Write('Tong dau tien lon hon 1000 la ',s);

Readln;

End.

Answer 2

Tham khảo link: https://hoc24.vn/cau-hoi/viet-chuong-trinh-tinh-tong-cua-n-so-tu-nhien-dau-tien-sao-cho-tong-nho-hon-hoac-bang-1000giup-minh-voi-thu-6-thi-roi.180444032537