sử dụng chương trình con tính (a!+b!)! .Làm giúp mình ạ ,mình cảm ơn. Mình cần gấp lắm ạ
1 câu trả lời
uses crt;
var a,b,i:longint;
{---Ham-giai-thua---}
function gt(a,b:longint):longint;
var s,i,c,d,e:longint;
begin
c:=1;d:=1;e:=1;
for i:=1 to a do
c:=c*i;
for i:=1 to b do
d:=d*i;
s:=c+d;
writeln(a,'!+',b,'!=',s);
for i:=1 to s do
e:=e*i;
writeln(s,'!=',e);
writeln('-> (',a,'!+',b,'!)!=',e);
end;
{---Chuong-trinh-chinh---}
begin
clrscr;
write('Nhap a,b: '); readln(a,b);
gt(a,b);
readln
end.
