Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program aaaaaaa ;
- uses crt ;
- var
- x,m,n,k,w:integer ;
- y:real;
- begin
- readln(x);
- readln(n);
- y:=sqr(x) ;
- m:=abs(n);
- k:=1 ;
- if n=1 then
- y:=x;
- if n=0 then
- y:=1;
- while m>1 do
- begin
- y:=k*y ;
- m:=m-2;
- k:=sqr(x);
- end;
- begin
- if m=1 then
- y:=y*x
- end;
- begin
- If n<0 then
- y:=1/y ;
- end;
- writeln(y) ;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement