主题：[讨论]一个简单的问题
popwem
[专家分：0] 发布于 2007-11-03 12:09:00
输入一个整数N，输出它的因数的个数。
如：N=6，质因数有1，2，3，6，则输出4。
麻烦把程序打出来！[em10]
回复列表 （共5个回复）
沙发
shisutianxia [专家分：630] 发布于 2007-11-03 14:23:00
我的答案，给我加分吧！！！（互相学习，帮助！！！！）
program fenjie;
var n,i,j:integer;
begin
readln(n);j:=0;
for i:=1 to round(sqrt(n)) do
if (n mod i=0) then begin write(i:2,n div i:2);j:=j+2;end;
writeln('tottal =',j);
end.
板凳
angwuy [专家分：2280] 发布于 2007-11-03 17:49:00
楼上的忘了完全平方数
var n,i,j:integer;
begin
readln(n);
if sqrt(n)=trunc(sqrt(n)) then j:=-1
else j:=0;
for i:=1 to trunc(sqrt(n)) do
if n mod i=0 inc(j,2);
writeln(j);
end.
3 楼
bingran33 [专家分：40] 发布于 2007-11-05 22:04:00
{互相学习一下}
program yueshu;
var n,i,t:integer;
begin
write('N=');readln(n);
t:=0;
for i:=1 to n do if n mod i=0 then t:=t+1;
writeln('T=',t);
readln;
end.
{我的程序,谢谢}
4 楼
shisutianxia [专家分：630] 发布于 2007-11-08 11:05:00
ANGWUY果然思维缜密
5 楼
cylr2014 [专家分：0] 发布于 2007-11-11 11:54:00
program yinshu;
var
n,i,s:integer;
begin
readln(n);
for i:=1 to n do
if (n mod i=0) then s:=s+1;
writeln(s);
end.
本人是pasal高手，有“题”笔应
QQ:837872985
EMAIL:cylr2014@sina.com
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — [讨论]一个简单的问题