Mn giúp mình với ạ!!! Viết chương trình tích: 1*1/2*1/3*…*1/n

0 bình luận về “Mn giúp mình với ạ!!! Viết chương trình tích: 1*1/2*1/3*…*1/n”

1. uses crt;
   var s:real;
       n,i:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      s:=1;
      for i:=1 to n do
      s:=s*(1/i);
      write(‘Tich la: ‘,s:4:2);
      readln
   end.

   Bình luận

2. Uses crt;

   Var i,n, t : integer;

   Begin clrscr;

   Write(‘Nhap n=’); readln(n);

   t :=1;

   For i:=1 to n do

   t := t*1/i;

   Write(‘Tich la’, t);

   readln

   end.

   Bình luận