tính T với n nhập từ bàn phím: T=1+1/2+1/5+...+1/n cho n=15;n=30

2 câu trả lời

uses crt;

var i, n : longint; T : real;

begin

clrscr;

write('n = 15.');

for i := 1 to 15 do T := T + 1 / i;

write('T = ', T : 2 : 2);

writeln; write('n = 30.');

for i := 1 to 30 do T := T + 1 / i;

write('T = ', T : 2 : 2);

readln

end.

uses crt;
var i,n:integer; t:real;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   t:=0;
   while i<=n do
   begin
      i:=i+1;
      if i mod 2 <> 0 then t:=t+1/i;
   end;
   write('T=',T:4:2);
   readln
end.