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. ii + 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.