因式分解 Pascal

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/26 00:33:52

因式分解 Pascal
如输入一个15
输入：15
输出：15=3*5
就是这样，15=也要打出

program p1020;
var n,i,j,k,m,q,w,p:longint;
function prime(x:longint):boolean;
var i,j:longint;
begin
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then
begin
prime:=false;
exit;
end;
prime:=true;
end;
begin
readln(n);
write(n,'=');
while n>2 do
begin
if prime(n) then
begin
writeln(n);
halt;
end;
for i:=n div 2 downto 2 do
if (n mod i=0)and(prime(i)) then
begin
if n=i then
begin
writeln(n);
halt;
end;
write(i,'*');
n:=n div i;
break;
end;
end;
if n>1 then writeln(n);
end.

pascal pascal pascal! Free Pascal Pascal 是什么 pascal随机数 Pascal是什么因式分解！因式分解因式分解(因式分解。) 因式分解(因式分解) Pascal 也分 Turbo Pascal 和 Free Pascal 的求pascal高手.pascal中的if语句. 是 Free Pascal