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