uses crt;
var s,i:integer;
begin
clrscr;
i:=1;
s:=0;
while s<=1000 do
begin
s:=s+sqr(i);
inc(i);
end;
writeln('S=',s);
readln;
end.
Bài 10: Cấu trúc lặp
Các câu hỏi tương tự
Viết chương trình tính tổng A/ S= 1+1+1+1+1 B/ S = 1+2+3+4+5
Viết chương trình tính các tổng sau: a) S=1+2+3+4+...+n b) S=1+3+5+...+n-1 c) S=2+4+6+...2n
1Viết chương trình nhập vào số nguyên dương N. Tính tổng các số là bội 3 và 5. In kết quả ra màn hình. 2. Viết chương trình tính tổng S=1+13+15+1N+...+ cho đến khi 1N
Viết chương trình tổng S=1+2+...+n cho đến khi S > 500 đếm số lần lặp
Viết chương trình tinh tổng S=1+2+4+6+...+N (N<10^4, n là số nguyên được nhập từ bàn phim)
Tính tổng S=1+2+3+....+n+.....+ cho đến khi S>1000. Điều kiện nào sao đây cho vòng lặp While-do là đúg:
A. While S< 1000 do
B. While S> 1000 do
C. While S<= 1000 do
D. While S>= 1000 do
Viết chương trình tính và xuất ra màn hình tổng của các số từ 20 đến 30. S=20+21+22+...+30
Cho đoạn chương trình S:=0 ; n:=1; While.......do Begin S:= S+n ; n:=n+1 ; End ; Tính tổng S=1+2+3....+100 , điều kiện nào sau đây cần điền vào chỗ 3 chấm giữa câu lệnh while ...do ? A. n>=100 B n> 100 C n<100 D n<=100
Giúp em
viết chương trình tính tổng
s=1/a+ 1/(a+1)+1/(a+2)+......+1/(a+n)
cho đến khi 1/(a+n)<0,0001