Giải chương trình tính giá trị của biểu thức : p=1.2.3…n Giúp mình câu b với ạ chiều thi rồi

0 bình luận về “Giải chương trình tính giá trị của biểu thức : p=1.2.3…n Giúp mình câu b với ạ chiều thi rồi”

1. program tinh_tich;

   uses crt;

   var n,i:byte;

         p:int64;

   begin

           clrscr;

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

           p:=1;

           for i:=2 to n do

                   p:=p*i;

           write(‘P= ‘,p);

           readln;

   end.

   Bình luận

2. uses crt;

   var i,n: integer;

   p: word;

   begin

   clrscr;

   p:=1;

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

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

   writeln (‘gia tri cua bieu thuc: ‘,p);

   readln;

   end.

   Bình luận