uses crt;
var a,n,i:integer;
s:real;
begin
clrscr;
write('a='); readln(a);
write('n='); readln(n);
s:=0;
for i:=0 to n do
s:=s+1/(a+i);
writeln('tong la: ',s:4:2);
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 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
Viết chương trình thực hiện yêu cầu sau:
Tính và nhập ra màn hình tổng
S= 1/a+1/(a+1)+1/(a+3)+...+1/(a+n)< 0,0001 và a nhập từ bàn phím.
In giá trị n sang màn hình.
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 tính tổng A/ S= 1+1+1+1+1 B/ S = 1+2+3+4+5
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 bằng ngôn ngữ tự nhiên và bằng ngôn ngữ lập trình Pascal ứng cho các bài toán sau. Tính và đưa ra màn hình tổng z=|x|+|y| với điểm (x>y) thuộc đường tròn bán kính r(r>0) tâm (a;b)
b, y=1+2+3+....+100
c, y=1+2+3+...+n cho đến khi y>3200
mk cần trong vòng 1 tiếng nữa . mong mọi người giúp mk , Cảm ơn nhiều ạ
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
1.viết chương trình nhập vào mảng A gồm N phần tử (N 500) từ bàn phím. Sau đó, tính tổng các phần tử âm chia hết cho cho 72.viết chương trình nhập vào mảng C gồm 10 phần tử từ bàn phím. Sau đó xuất ra các phần tử là số nguyên tố3.viết chương trình tạo nhập vào mảng D gồm K phần tử (K 200) từ bàn phím. Sau đó cho biết có bao nhiêu phần tử chẵn có 2 chữ sốmn giúp em giải với ạ
Đọc tiếp
1.viết chương trình nhập vào mảng A gồm N phần tử (N<= 500) từ bàn phím. Sau đó, tính tổng các phần tử âm chia hết cho cho 7
2.viết chương trình nhập vào mảng C gồm 10 phần tử từ bàn phím. Sau đó xuất ra các phần tử là số nguyên tố
3.viết chương trình tạo nhập vào mảng D gồm K phần tử (K<= 200) từ bàn phím. Sau đó cho biết có bao nhiêu phần tử chẵn có 2 chữ số
mn giúp em giải với ạ
Viết chương trình giải các bài toán sau :
(Mỗi bài 1 chương trình)
1) Cho 1 dãy gồm N phần tử .Tính tổng các phần tử CHẴN trong dãy.
2) Cho 1 dãy gồm N phần tử .Tìm giá trị LỚN nhất trong dãy (N \(\le\) 400).
3) Cho 1 dãy gồm N phần tử .Sắp xếp dãy theo chiều TĂNG dần.
CÁC BẠN GIÚP MÌNH VỚI ! CẢM ƠN !