Nhập a bằng 5 và x = 7 Cho chạy và chụp ảnh màn hình kết quả 5 lũy thừa 7 Giúp mk với ạ, mk cảm ơn

2 câu trả lời

program nguyenkhanhha610;
uses crt;
var i, a, x, r: longint;
begin
  ClrScr;
  Write ('Nhập a = '); readln(a);
  Write ('Nhập x = '); readln(x);
  r := 1;
  for i := 1 to x do r := r * a;
  Writeln ('a^x = ', r);
end.

$#QLinkVN$

CẤU TRÚC CHƯƠNG TRÌNH CỤ THỂ NHƯ SAU:

program lmaoooo;
uses crt;
var a,x,i,k: longint;
begin
clrscr;
writeln('Nhap gia tri nguyen a: '); readln(a);
writeln('Nhap so mu x: '); readln(x);
k:=1;
for i:=1 to x do k:=k*a;
writeln('Gia tri cua so la: ',k);
readln;
end.

MÀN HÌNH KẾT QUẢ CÙNG VỚI CODE CÓ TRÊN MÀN HÌNH!