Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Bảo Bào

Viết chương trình tìm n nhỏ nhất để tổng các số từ 1 đến n lớn hơn 1000 ( sử dụng while)

Kiều Vũ Linh
29 tháng 4 2022 lúc 9:16

Var i,s:integer;

Begin

i:=0;

While s<=1000 do

Begin

i:=i+1;

s:=s+i;

End;

Write('n nho nhat la ',i);

Readln;

End.


Các câu hỏi tương tự
Hương Đào Thị
Xem chi tiết
xmisiucute
Xem chi tiết
Hai Phạm
Xem chi tiết
Trí Cao
Xem chi tiết
Thảo My Lê Phương
Xem chi tiết
Nguyễn Huỳnh Khôi Nguyên
Xem chi tiết
Đoàn Khánh Chi
Xem chi tiết
Tiến Đạt Huỳnh
Xem chi tiết
nguyên Nông
Xem chi tiết