s:=1;

for i:=1 to n do s:=s*i;

//------

i:=0;

S:=1;

while i<n do

 Begin

 I:=i+1;

 S:=s*i;

End;

Nhập xuất tự làm

Câu 1 :

- Lệnh lặp với số lần biết trước :

+ For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

+ Biến đếm có kiểu dữ liệu là số nguyên

+ Giá trị đầu phải nhỏ hơn hoặc bằng giá trị cuối

+ Câu lệnh có thể là câu lệnh đơn hoặc ghép

Câu 2 :

a) Sử dụng For ... do

uses crt;

var i, N, T : longint;

begin

clrscr;

write('Nhap so N : ');readln(N);

T := 1; for i := 1 to N do T := T * i;

write('Tich = ', T);

readln

end.

b) Sử dụng câu lệnh lặp While .. do

uses crt;

var i, N, T : longint;

begin

clrscr;

write('Nhap so N : '); readln(N);

T := 1; i := 1;

while i <= N do

begin T := T * i;

i := i + 1; end;

write('Tich = ', T);

readln

end.