GIẢI HỘ MÌNH VỚI MAI KIỂM TRA RỒI Viết chương trình tính tổng T=1/2+1/4+1/6+...+1/6*n
1 câu trả lời
uses crt;
var T:real;
i,n:integer;
begin
clrscr;
T:=0;
write('Nhap n: '); readln(n);
for i:=1 to n do
T:=T+1/(2*i);
writeln('Tong la: ',T:4:2);
readln
end.
Câu hỏi trong lớp
Xem thêm