Advertisement
trankhanh47

Dequiluythua

Dec 9th, 2017
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.25 KB | None | 0 0
  1. {De qui luy thua}
  2. program a_mu_n;
  3. uses crt;
  4. var a,n:integer;
  5. Function amn(a,n:integer):longint;
  6.  begin
  7.   If n=1 then amn:=a else amn:=amn(a,n-1)*a;
  8.   end;
  9. begin
  10.    Clrscr;
  11.    Readln(a,n);
  12.    Writeln(a,' mu ',n,'= ',amn(a,n));   readln
  13.    end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement