Question

Free Pascal IDE程序怎么做

题目：要求输入一个整数，输出它的所有质因数，如：12=2*2*3
急！各位大虾帮帮我，7月21日就要交了！还有，谁能把下载Free Pascal IDE的地址给我？

Answer 1

label fin;
function ss(n:integer):boolean;
var
i:integer;
begin
if n=1 then exit(false);
for i:=2 to round(sqrt(n)) do
if n mod i=0 then exit(false);
exit(true);
end;
var
a,p:integer;
begin
readln(a);
write(a,'=');
if ss(a) then begin
write(a);
goto fin;
end;
for p:=2 to trunc(sqrt(a)) do
if a mod p=0 then begin
write(p);
a:=a div p;
break;
end;
while not(ss(a)) do
for p:=2 to trunc(sqrt(a)) do
if a mod p=0 then begin
write('*',p);
a:=a div p;
break;
end;
write('*',a);
fin:readln;
end.

http://www.freepascal.org/download.var

Answer 2

判断质子数%2是否等于0再乘以余数不就行了

Answer 3

yuyaoshishiyanxiaoauewangzhan