数的质因子
Time Limit: 3 second
Memory Limit: 2 MB
【问题描述】
一个数可以分解成其质因子的乘积.如24=2*2*2*3，26=2*13；100=2*2*5*5。现要你输入一个整数，求出它的质因子。
【输入】
共一行。内容是所要求解的整数【输出】
一行。输出分解的结果
【输入样例】12【输出样例】12=2*2*3 我的程序↓↓
program cheng;
var a,b,c:integer;
begin
readln(a);
write(a,'=');
repeat
b:=5;
if (a mod 2)=0 then b:=1 else
if (a mod 3)=0 then b:=2 else
if (a mod 5)=0 then b:=3 else
if (a mod 7)=0 then b:=4;
if (a=2) or (a=3) or (a=5) or (a=7) or (a=0) then b:=5;
case b of
1:begin a:=a div 2; write(2,'*');end;
2:begin a:=a div 3; write(3,'*');end;
3:begin a:=a div 5; write(5,'*');end;
4:begin a:=a div 7; write(7,'*');end;
5:write(a);
end;
until b=5;
readln

var
--i,x:longint;
--first:boolean;
begin
--readln(x);
--write(x,'=');
--first:=true;
--i:=2;
--if x=1 then write(x);
--while x<>1 do
----begin
------while x mod i=0 do
--------begin
----------x:=x div i;
----------if first then
------------begin
--------------first:=false;
--------------write(i);
------------end
------------else write('*',i);
--------end;
------inc(i);
----end;
--writeln;
end.

十五字十五字十五字十五字十五字