Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
1254
1145
const fi='giaithua.inp';
fo='giaithua.out';
var n:int64;
function gt(n:int64):int64;
begin
if (n<=1) then
exit(1)
else
exit(n*gt(n-1));
end;
begin
assign(input,fi);
reset(input);
read(n);
close(output);
assign(output,fo);
rewrite(output);
write(gt(n));
close(output);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
67
32
uses crt;
var n:longint;
function giaithua(a:longint):longint;
begin
If a=1 then giaithua:=1 // Neu a=1 thi ket thuc
else giaithua:=a*giaithua(a-1); // khong thi giai thua bang a x giai thua (a-1);
end;
begin
clrscr;
write('n=');readln(n); // nhap n
writeln(giaithua(n)); // xuat giai thua cua n
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin