Question

Viết chương trình nhập vào số mũ x, tính n\(^x\)

Answer 1

program tinh_so_mu;

uses crt;

var a:real;

x,n:integer;

begin

clrscr;

write('Nhap so mu x=');readln(x);

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

a:=exp(x*ln(n));

write(n,'^',x,' la:',a:1:0);

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.