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