Tính P = 1* 2* 3 * . . . *n với n là số nguyên được nhập từ bàn phím (Free Pascal)

0 bình luận về “Tính P = 1* 2* 3 * . . . *n với n là số nguyên được nhập từ bàn phím (Free Pascal)”

1. Program FNG;
   Uses crt;
   Var n,i: longint;
       p: qword;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           p:=1;
           For i:=1 to n do
                   p:=p*i;
           Write(‘P = ‘,p);
           Readln
   End.

   Bình luận

2. program kaito;

   uses crt;

   var n, i, p: integer;

   begin

      clrscr;

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

      p:=1;

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

      writeln(‘Tích cua cac so tu 1 den ‘,n,’ la: P = ‘,p);

      readln

   end.

   CHÚC BẠN HỌC TỐT!!!

   Bình luận