Advertisement
Guest User

Untitled

a guest
Feb 23rd, 2019
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.33 KB | None | 0 0
  1. program aaaaaaa   ;
  2. uses crt  ;
  3. var
  4. x,m,n,k,w:integer   ;
  5. y:real;
  6. begin
  7. readln(x);
  8. readln(n);
  9. y:=sqr(x) ;
  10. m:=abs(n);
  11. k:=1 ;
  12. if n=1 then
  13. y:=x;
  14. if  n=0 then
  15. y:=1;
  16. while m>1 do
  17. begin
  18. y:=k*y  ;
  19. m:=m-2;
  20. k:=sqr(x);
  21. end;
  22. begin
  23. if m=1 then
  24. y:=y*x
  25. end;
  26.  
  27. begin
  28. If n<0 then
  29. y:=1/y ;
  30. end;
  31.  
  32. writeln(y) ;
  33.  
  34. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement