GIÚP MÌNH VỚI! MÌNH CẦN GẤP viết chương trình tính tổng T=1/2+1/4+1/6+...+1/2*n

2 câu trả lời

uses crt;
var n,i:longint; t:real;
begin 
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do 
      t:=t+1/(i*2);
   writeln(t:0:3);
readln
end.

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