Viết thuật toán cho bài toán tính tổng sau: Tính tổng
S=1/a +1/(a+1) + 1/(a+2) + ....+ 1/(a+100)
S=1/a +1/(a+1) + 1/(a+2) + ....+ 1/(a+100)
Quảng cáo
1 câu trả lời 7525
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.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
55468 -
Đã trả lời bởi chuyên gia
31401 -
Đã trả lời bởi chuyên gia
29946
Gửi báo cáo thành công!
