viết chương trình nhập vào 2 số nguyên a và x rồi in ra màn hình kết quả của a mũ x

2 câu trả lời

uses crt;

var i,x,a,s:integer;

begin

clrscr;

write('a= ');readln(a);

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

s:=1

for i:=1 to x do s:=s*i;

write(s);

readln

end.

Cho mk ctlhn+vote5s+cảm ơn nha

uses crt;

var a, x, t, i : integer; 

begin

clrscr;

write('Nhap a, x = '); readln(a, x);

t := 1;

for i := 1 to x do t := t * a;

write(x,'^', a ,' = ', t);

readln

end.