Viết phương trình tích S=1*2*3*…N

0 bình luận về “Viết phương trình tích S=1*2*3*…N”

1. var kq,n:longint;

   begin

   write(‘Nhap n: ‘); readln(n);

   kq:=1;

   for i:=1 to n do

   kq:=kq*i;

   write(‘S = ‘,kq);

   readln;

   end.

   Bình luận

2. Program BTT;
   Uses crt;
   Var n,i: byte;
       s: qword;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=1;
           For i:=2 to n do
                   s:=s*i;
           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận