不是VIP会员，不能显示答案

题目解答

题目：
var n,i,ans: integer;
begin readln(n);
ans:= 0;
for i:= 1 to n do
if (n mod i)= 0 then
ans := ans+1;
writeln(ans);
end.

输入：18
输出：6
考点：
分析：
解答：
评论：
老师：