看看这个程序！

155217105

<>a = {57, 71, 87, 97, 99, 101, 103, 113, 114, 115, 128, 129, 131, 137, <BR>    147, 156, 163, 186}<BR>f[x_] := a*x<BR>For[i = 1, i &lt; 18, i++, Solve[a*x == Input[], x]]</P>
<>看看</P>

xp933742

也不说说干什么的？