1/

số lần lặp 4 lần vì:

giá trị ban đầu của i là 1

                               n là 4

khi nào i<=n thì tiếp tục thực hiện câu lệnh (trong đó có i sẽ tăng lên 1 đơn vị sau mỗi lần lặp i:=i+1);

2/

giá trị của tích 1: 81

giá trị của tích 2: 24

3/

đoạn lệnh trên tính tích của:

tích 1=3.3.3.3 (3 mũ 4)

tích 2=1.2.3.4 (tích của 4 số tự nhiên đầu tiên không tính số 0)

Bài thực hành:

program thuchanh;
uses crt;
var a,n,i,bp,tich: integer;
begin
clrscr;
write ('nhap a: ');  readln (a);
write ('nhap n: ');  readln (n);
bp:=1;
tich:=1;
for i:=1 to n do bp:=bp*a;
for i:=1 to n do tich:=tich*i;
writeln (a,' mu ',n,' = ',bp);
writeln ('tich tu a den ',n,' = ',tich);
readln;
end.

1- Số lần lặp: 4 vì mỗi lần i=i+1 thì sau khi lặp 4 lần điều kiền i<=4 sẽ sai.

2- Tich1=a^4=81;

     Tich2=4!=24;;

3- Nhận xét:

     Tich1=a^4=81;

     Tich2=4!=24;

Bài thực hành:

uses crt;
var a,n,t,lt,i:longint;
begin
clrscr;
   write('Nhap a: ');readln(a);
   write('Nhap n: ');readln(n);
   lt:=1; t:=1;
   for i:=1 to n do begin t:=t*i; lt:=lt*a; end;
   writeln('a mu n (a^n) = ',lt);
   writeln('Tich tu 1 den n = ',t);
readln
end.

Hình: