VCT tạo hàm kiểm tra xem n! là bao nhiêu rồi kiểm tra xem n!(n đc nhập từ bàn phím) là bao nhiêu

0 bình luận về “VCT tạo hàm kiểm tra xem n! là bao nhiêu rồi kiểm tra xem n!(n đc nhập từ bàn phím) là bao nhiêu”

1. uses Crt;
   var n:Integer;
   function giaithua(n:Integer):LongInt;
   begin if n=0 then
     giaithua:=1
    else
     giaithua:=n*giaithua(n-1);
   end;
   begin
    clrscrs
     ReadLn(n);
     Writeln(n!= ‘,giaithua(n));
    ReadLn;
   end.

   Bình luận

2. program giai_thua;
   uses Crt;
   var n:Integer;
   function giaithua(n:Integer):LongInt;
   begin
    if n=0 then
     giaithua:=1
    else
     giaithua:=n*giaithua(n-1);
   end;
   begin
    clrscr;
     Write(‘Ban muon tinh giai thua cua bao nhieu: ‘);
     ReadLn(n);
     WriteLn(n,’!= ‘,giaithua(n));
    ReadLn;
   end.

   Bình luận