Viết chương tình tính tổng T=1+1/2+1/3+…+1/n, với n nhập
vào từ bàn phím . Giúp mình với

Question

Viết chương tình tính tổng T=1+1/2+1/3+…+1/n, với n nhập   vào từ bàn phím  . Giúp mình với

maingocquynhnhu · Answer

var n,i:longint;           t:real;   begin    write('Nhap n: '); readln(n);   for i:=1 to n do   t:=t+ 1/i;   write('t= ',t:0:5);   readln;   end.

thubichdan · Answer

var n,i:longint;           t:real;   begin    write('Nhap n: '); readln(n);   for i:=1 to n do   t:=t+ 1/i;   write('t= ',t:0:5);   readln;   end.

0 bình luận về “Viết chương tình tính tổng T=1+1/2+1/3+…+1/n, với n nhập vào từ bàn phím . Giúp mình với”