viết chương trình tính tích n! .Biến n! được nhập từ bàn phím

0 bình luận về “viết chương trình tính tích n! .Biến n! được nhập từ bàn phím”

1. Program giai_thua;

   Var n,i:integer;

         P:longint;

   Begin

      Write(‘Nhap n: ‘);Readln(n);

      P:=1;

        For i:=1 to n do P:=P*i;

        Writeln(n,’!= ‘,P);

      Readln;

   End.

   Đây là cách làm của mình. Chúc bạn học tốt nha!!!

   Bình luận

2. program giaithua;

   uses crt;

   var n,i:byte;

         gt:int64;

   begin

          clrscr;

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

          gt:=1;

          for i:=2 to n do

                 gt:=gt*i;

          write(n,’!= ‘,gt);

          readln;

   end.

   Bình luận