vinarsky_evgeny

Untitled

Nov 22nd, 2015
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.25 KB | None | 0 0
  1. program 12_6(input,output);
  2.  
  3. function pow(a,y: integer): real;
  4. begin
  5. if (y=0) then pow:=1
  6. else if (y<0) then pow:=1/pow(a,y+1)/a
  7.      else pow:=pow(a,y-1)*a;
  8. end;
  9.  
  10. begin
  11. var x,n: integer;
  12. var k: real;
  13. read(x,n);
  14. k:=pow(x,n);
  15. write(k);
  16. end.
Advertisement
Add Comment
Please, Sign In to add comment