Viết chương trình tính tổng 1/a +1/(a+1)+...+1/(a+200)
1 câu trả lời
uses crt;
var a,i:longint;
tong:real;
begin
clrscr;
write('Nhap a=');readln(a);
tong:=0;
for i:=1 to 200 do tong:=tong+(1/a+i);
writeln(tong:0:5);
readln;
end.
Câu hỏi trong lớp
Xem thêm
