2 câu trả lời
Cách dùng hàm exp,ln thì hơi khó hiểu, nên trong trường hợp a,n<=10 thì dùng cách thường dễ hiểu hơn
var a,n,i:byte;
kq:int64;
begin
kq:=1;
write('Nhap a: '); readln(a);
write('Nhap n: '); readln(n);
for i:=1 to n do
kq:=kq*a;
write('P= ',kq);
readln;
end.
Program BTT;
Uses crt;
Var a,n: byte;
P: extended;
Begin
Clrscr;
Write('Nhap a: '); Readln(a);
Write('Nhap n: '); Readln(n);
P:=exp(n*ln(a));
Write('P = ',p:0:0);
Readln
End.
Câu hỏi trong lớp
Xem thêm
