free pascal任给一个自然数n,求出这个自然数不同因数的个数.
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/16 09:04:27
free pascal任给一个自然数n,求出这个自然数不同因数的个数.
如n:=6时,因为1.2.3.6这四个数均为6的因数,故输出total=4.
请要自己编的,
再加上注释,
一定得是自编!
如n:=6时,因为1.2.3.6这四个数均为6的因数,故输出total=4.
请要自己编的,
再加上注释,
一定得是自编!
![free pascal任给一个自然数n,求出这个自然数不同因数的个数.](/uploads/image/z/15827541-69-1.jpg?t=free+pascal%E4%BB%BB%E7%BB%99%E4%B8%80%E4%B8%AA%E8%87%AA%E7%84%B6%E6%95%B0n%2C%E6%B1%82%E5%87%BA%E8%BF%99%E4%B8%AA%E8%87%AA%E7%84%B6%E6%95%B0%E4%B8%8D%E5%90%8C%E5%9B%A0%E6%95%B0%E7%9A%84%E4%B8%AA%E6%95%B0.)
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.
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的因数只有一个