回 帖 发 新 帖 刷新版面

主题:快来呀!快来呀!快来呀!快来呀!快来呀!快来呀!

输如一个大于1的整数,打印出它的素数分解试。如75=3*5*5。

回复列表 (共1个回复)

沙发

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.

要加分呦......

我来回复

您尚未登录,请登录后再回复。点此登录或注册