Question

Viết chương trình tìm số N nhỏ nhất thỏa mãn biểu thức sau 1*2*3*...*N>120

 

Answer 1

Var i,p:integer;

Begin

i:=0;

p:=1;

While p<=120 do

Begin

i:=i+1;

p:=p*i;

End;

Write('So can tim la ',i);

Readln;

End.