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.