* Cách thường (không dùng biến):
program bai_giai;
uses crt;
begin
clrscr;
write(1*2*3*4*5*6*7*8*9*10);
readln;
end.
* Cách thường (dùng biến):
program bai_giai;
uses crt;
var tich:longint;
begin
clrscr;
tich:=1*2*3*4*5*6*7*8*9*10;
write(tich);
readln;
end.
* Dùng for...to
program bai_giai;
uses crt;
var i:byte;
tich:longint;
begin
clrscr;
tich:=1;
for i:=1 to 10 do tich:=tich*i;
write(tich);
readln;
end.
* Dùng while...do
program bai_giai;
uses crt;
var i:byte;
tich:longint;
begin
clrscr;
tich:=1; i:=1;
while i<=10 do
begin
tich:=tich*i;
i:=i+1;
end;
write(tich);
readln;
end.
