pascal里分解因数的程序

var num,i:integer;

begin

read(num);

write(num,'=1');

i:=2;

while num<>1 do

begin

if num mod i=0 then

begin

num:=num div i;

write('*',i);

end

else inc(i);

end;

end.

• ·我要给农业银行储蓄卡里汇款要上哪个银行办理手续
• ·讨说法：清华紫光移动硬盘！给我想想办法？
• ·制作DJ都需要什么
• ·简单四选一?为什么？谢谢！
• ·layout是什么意思?
• ·初中数学几道题目,请高人赐教
• ·一百万元的配置？
• ·剑桥大学沃尔森学院院长的e-mail地址？
• ·我今年49岁，已接近闭经，请问可以服用那些治疗
• ·急！急！急！龙与地下城OnLine为什么公测了