Question

[Trịnh Nam]

Viết chương trình tính tích n số tự nhiên được nhập từ bàn phím (Sử dụng câu lệnh while... do)

Answer 1

[Kiều Vũ Linh]

Var i,n,p:longint;

Begin

Write('Nhap n = ');readln(n);

i:=1;

p:=1;

While i<=n do

Begin

i:=i+1;

p:=p*i;

End;

Write('Tich la ',p);

Readln;

End.