Advertisement
Guest User

Untitled

a guest
Feb 22nd, 2019
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.64 KB | None | 0 0
  1. program lola;
  2. uses crt;
  3. var
  4.   n,m,i:integer;
  5.   u,x,y,k:real;
  6.   FLAG:boolean;
  7. begin
  8. clrscr;
  9. k:=1;
  10. Flag:=false;
  11. readln(x,n);
  12. y:=sqr(x);
  13. m:=abs(n);
  14. if n=0 then
  15. y:=1;
  16.  
  17. if n>0 then
  18.  begin
  19.  if m=1 then
  20.   begin
  21.   y:=x;
  22.   FLAG:=true;
  23.   end;
  24.    while m>1 do
  25.     begin
  26.      y:=y*k;
  27.      m:=m-2;
  28.      k:=sqr(x);
  29.     end;
  30.  if flag=false then
  31.  if m=1 then
  32.   y:=y*x;
  33.   writeln(y);
  34.  end
  35. else
  36.  begin
  37.  if m=1 then
  38.  begin
  39.  y:=x;
  40.  flag:=true;
  41.  end;
  42.   While m>1 do
  43.    begin
  44.     y:=y*k;
  45.     m:=m-2;
  46.     k:=sqr(x);
  47.    end;
  48.   if flag=false then
  49.   if m=1 then
  50.    y:=y*x;
  51.    u:=1/y;
  52.    writeln(u);
  53.  end;
  54.  
  55. readkey;
  56. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement