Tính tích của 1*2*3*…n (bằng 2 cách)

0 bình luận về “Tính tích của 1*2*3*…n (bằng 2 cách)”

1. uses crt;

   var i,n:integer;

   s:longint;

   begin clrscr;

   write(‘nhap so n=’);

   readln(n);

   s:=1; i:=1;

   While i<=n do begin s:=s*i; i:=i+1; end;

   write(‘tich la’, s);

   readln

   end.

   cách 2 :

   thay while…do bằng :

   for i:=1 to n do s:=s*i;

   Bình luận

2. uses crt;
   var n,i,j : integer;
   s,s1 : longint;
   begin clrscr;s:=1;s1:=1;j:=1;
   {Cach 1}
   write(‘Nhap n:’); readln(n);
   for i:=1 to n do s:=s*i;
   write(‘Tich la :’, s);
   {Cach 2}
   While j<=n do begin
   s1:=s1*j;
   j:=j+1;
   end;
   write(‘Tich la :’, s1);
   readln
   end.

   Bình luận