Viết chương trình tính tích của 10 số tự nhiên đầu tiên +sử dụng câu lệnh lặp for...to...do...(cách 1) +sử dụng câu lệnh while...do...(cách 2)

Tich:=1;
For i:=1 to 10 do tich:=tich*i;
Tich:=1;
i:=1;
While i<=10 do
Begin
Tich:=tich*i;
I:=i+1;
End;

*Sử dụng câu lệnh for to do:

Program baitap;

Uses crt;

Var S,i:integer;

Begin

Clrscr;

S:=1;

For i:=1 to 10 do S:=S*i;

Writeln('Tich cua 10 so tu nhien dau tien:',S);

Readln

End.

*Sử dụng câu lệnh while do:

Program cunglabaitap;

Uses crt;

Var i,S:integer;

Begin

Clrscr;

i:=1;S:=1;

While i<=10 do
     Begin
     S:=S*i;
     i:=i+1;
     End;

Writeln('Tich cua 10 so tu nhien dau tien:',S);

Readln

End.