Lời giải :
program hotrotinhoc;
var s,n,i : integer;
begin
n:=0; s:=0;
while s<=500 do
begin
n:=n+1;
s:=s+n;
end;
write(s);
readln
end.
Đúng 0
Bình luận (0)
Bài 8. Lặp với số lần chưa biết trước
Các câu hỏi tương tự
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+3+5+...+n. N là số nguyên nhập từ bàn phím
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+1/2+1/3+...+1/n. N là số nguyên nhập từ bàn phím
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+1/2²+1/3²+...+1/n². N là số nguyên nhập từ bàn phím
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=3+4+6+...+n. N là số nguyên nhập từ bàn phím
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=3+4+6+...+n. N là số nguyên nhập từ bàn phím
Viết chương trình tính tổng của n số tự nhiên bất kì được nhập từ bàn phím bằng lệnh while do với n là số nguyên được nhập từ bàn phím
Viết chương trình tính tổng S=2+4+6+…+2n với n nhập vào từ bàn phím (sử dụng câu lệnh For và If)
Viết chương trình tính tổng n số, với n được nhập từ bàn phím ( sử dụng while..do)?
Viết chương trình nhập vào từ bàn phím một số nguyên dương n, in ra màn hình các số lẻ nhỏ hơn hoặc bằng số nguyên dương n. Chương trình yêu cầu nhập lại nếu n <=0. (Sử dụng câu lệnh While … do)