主题:快来呀!快来呀!快来呀!快来呀!快来呀!快来呀!
杰克
[专家分:0] 发布于 2005-08-10 13:31:00
输如一个大于1的整数,打印出它的素数分解试。如75=3*5*5。
回复列表 (共1个回复)
沙发
绿步甲 [专家分:1610] 发布于 2005-08-10 14:11:00
var
a,n:integer;
begin
read(a);write(a,'=');n:=2;
repeat
if a mod n=1
then begin
if
a div n=1
then begin write(n);a:=1;end
else begin
write(n,'*');
a:=a div n;end end
else n:=n+1;
until a=1;
end.
要加分呦......
我来回复