b: uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 5 do
s:=s+i;
writeln(s);
readln;
end.
Đúng 0
Bình luận (0)
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 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 pascal tính tổng:
S=1/3+1/5+...+1/(n+1)+3/4
P=1/3+1/5+...+1/(n+1)+1/(n+2)
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ổ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)
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
Viết chương trình tính tổng S= 1+4+9+16+...+ Tới khi S > 1000
viết ct tính và in ra tính tổng s =1 + 1/(a+1)^2 +1/(a+2)^2+...+1/(a+m)^2
Xem chi tiết