viết ct tính tổng 1+1/2+1/3…+1/n Giúp mik với

0 bình luận về “viết ct tính tổng 1+1/2+1/3…+1/n Giúp mik với”

1. Uses crt;
   Var i ,n: integer;
          s:real;
   Begin
   Clrscr;
   Write(‘Nhap n = ‘); readln(n);
   s:=0;
   For i:=1 to n do s:=s+1/i;
   Writeln(‘Tong tren bang ‘,s:0:2);
   Readln
   End.

   Bình luận

2. Program tinh_tong;

   Uses crt;

   Var i,n: integer;

          S: real;

   Begin

   Write (‘Nhap n=’); 

   Readln (n);

   S:=1;

   For i:= 2 to n do 

   S:= S+ 1/i;

   Writeln (‘Tong S la:’, S:7:2);

   Readln

   End.

   Bình luận