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
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ính tổng A/ S= 1+1+1+1+1 B/ S = 1+2+3+4+5
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 !