Em hãy viết chương trình tính lũy thừa bậc n của số nguyên X

2 câu trả lời

Program BTT;
Uses crt;
Var n,x: int64;
    s: extended;
Begin
        Clrscr;
        Write('Nhap x: '); Readln(x);
        Write('Nhap n: '); Readln(n);
        s:=exp((n)*ln(x));
        Write(x,'^',n,' = ',s:0:2);
        Readln
End.

Trả lời :

Program xmun 

Ues crt

Var i, x, n, kq: longint; 

Begin 

Clrscr 

Writeln(' Chuong trinh tinh X^n');

Write('X='); readln(X) 

kq:=1

fori:=1to n do

kq:=kq*X; 

Writeln(X; '^',n, '=',kq); 

Readln

End