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 ạ

0 bình luận về “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. 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.

   Bình luận