BÀI 7. CÂU LỆNH LẶPCÂU HỎI VÀ BÀI TẬP
8. Thuật toán:Bớc 1. Nhập các số n và x. Bớc 2. A 1, i 0 (A là biến lu lũy thừa bậc n của x). Bớc 3. ii + 1, A A.x. Bớc 4. Nếu i < n, quay lại bớc 3.Bớc 5. Thông báo kết quả A là lũy thừa bậc n của x và kết thúc thuật toán.Chơng trình Pascal có thể nh sau:
var n,i,x: integer; a: longint;
begin
write('Nhap x='); readln(x);
write('Nhap n='); readln(n);
A:=1;
for i:=1 to n do A:=A*X;
writeln(x,' mu ',n,' bang ',A);
end.