Tin học 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 24/07/2021 By Liliana 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
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. Trả lời
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. Trả lời