uses crt; var a,b,lt,i:longint; begin clrscr; write('a=');readln(a); write('b=');readln(b); lt:=1; for i:=1 to b do lt:=lt*a; writeln(a,'^',b,'=',lt); readln end.
Cách 2: Dùng công thức:
uses crt; var a,b:longint; begin clrscr; write('a=');readln(a); write('b=');readln(b); writeln(a,'^',b,'=',exp(b*ln(a)):0:0); readln end.
uses crt; var a,b:integer; function pow(a,b:integer):int64; begin if b = 0 then exit(1); if b and 1 = 1 then exit(a*pow(a,b-1)); exit(sqr(pow(a,b div 2))); end; begin clrscr; readln(a,b); writeln(pow(a,b)); readln; end.
