Question

Viết chương trình để tính x lũy thừa n (\(x^n\)). X,n là các số nguyên dương được nhập từ bàn phím (x,n>1).

Answer 1

program xmun;

uses crt;

var i,x,n,kq:longint;
Begin
clrscr;
writeln('Chuong trinh tinh X^n');
write('X=');readln(x);
write('n=');readln(n);
kq:=1;
for i:=1 to n do
kq:=kq*x;
writeln(x,'^',n,'=',kq);
readln;
end.

Answer 2

uses crt;

var n,x,i:integer;

lt:longint;

begin

clrscr;

write('n='); readln(n);

write('x='); readln(x);

lt:=1;

for i:=1 to x do

lt:=lt*n;

writeln(x,'^',n,'=',lt);

readln;

end.