Viết chương trinh giai thưa số nguyên n nhập từ bàn phím (n>0)

0 bình luận về “Viết chương trinh giai thưa số nguyên n nhập từ bàn phím (n>0)”

1. Program GT;
   Uses crt;
   Var n,i: longint;
       s: int64;

   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=1;
           For i:=1 to n do
                   s:=s*i;
           Write(‘Giai thua cua ‘,n,’ la: ‘,s);
           Readln
   End.

   Bình luận

2. program hotboy;

   uses crt;

   var i,n,s: real;

   begin

   clrscr;

   s:=1;

   repeat 

   write(‘nhap n tu ban phim’);

   readln(n);

   until n>0;

   for i:=1 to n do

   s:=s*i;

   write(‘giai thua cua’,n,’la’,s:2:2);

   readln

   end.     

   Bình luận