free pascal任给一个自然数n,求出这个自然数不同因数的个数.

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/07/13 22:43:32

free pascal任给一个自然数n,求出这个自然数不同因数的个数.
如n:=6时,因为1.2.3.6这四个数均为6的因数,故输出total=4.
请要自己编的,
再加上注释,
一定得是自编!

var n,s,i:longint;
begin
readln(n);
s:=2; {1和自身肯定是因数}
for i:=2 to n div 2 do
if n div i=0 then inc(s);
writeln(s);
end.

PASCAL试题急!任给一个自然数n(n 给出一个自然数N,N的因数个数用A(N)表示…… 一个自然数的最大因数是50,这个自然数是一个自然数,恰好可以写成两个不同的质数的乘积,这个自然数有( )个不同的因数. 一个自然数,恰好可以写成两个不同质数的乘积,这个自然数有（）个不同的因数. 有五个连续自然数,中间的一个数数是n,求出这5个数的和 free pascal定义一个函数,输出2到n之间的全部完全数(一行一个数) 完全数：因子之和等于它本身的自然数, 按一个数的因数的个数,自然数可分为( )( )( )( ) 一个自然数（0除外）按因数的个数分为输入一个自然数X,求这个自然数的所有约数之积S.（Pascal) 输入一个自然数,求这个自然数的所有约数之和,用PASCAL语言一般情况下,一个自然数的因数的个数成双数,但也有一些自然数因数的个数成单数的.如自然数1的因数只有一个