pascal因式分解问题输入：48输出：48=1*48 48=2*2*2*2*3 48=2*2*2*6 48=2*2*3*4 48=2*2*12 48=2*3*8 48=2*4*6 48=2*24 48=3*4*4 48=3*16 48=4*12 48=6*8program yinshifenjie;var a:array[0..100] of integer;fin,fout:text;p:integer;procedure print(n:in
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/27 00:08:29
pascal因式分解问题输入：48输出：48=1*48 48=2*2*2*2*3 48=2*2*2*6 48=2*2*3*4 48=2*2*12 48=2*3*8 48=2*4*6 48=2*24 48=3*4*4 48=3*16 48=4*12 48=6*8program yinshifenjie;var a:array[0..100] of integer;fin,fout:text;p:integer;procedure print(n:in
pascal因式分解问题
输入：
48
输出：
48=1*48 48=2*2*2*2*3 48=2*2*2*6 48=2*2*3*4 48=2*2*12 48=2*3*8 48=2*4*6 48=2*24 48=3*4*4 48=3*16 48=4*12 48=6*8
program yinshifenjie;
var a:array[0..100] of integer;
fin,fout:text;
p:integer;
procedure print(n:integer);
var j:integer;
begin
write(fout,p,':=');
for j:=1 to (n-1) do
write(fout,a[n],'*');
write(fout,a[j]);
writeln(fout);
end;
procedure search(shu,t:integer);
var i:integer;
begin
if shu=1 then begin print(t);exit;end;
for i:=2 to shu do begin
if (shu mod i=0) and (a[t-1]
pascal因式分解问题输入：48输出：48=1*48 48=2*2*2*2*3 48=2*2*2*6 48=2*2*3*4 48=2*2*12 48=2*3*8 48=2*4*6 48=2*24 48=3*4*4 48=3*16 48=4*12 48=6*8program yinshifenjie;var a:array[0..100] of integer;fin,fout:text;p:integer;procedure print(n:in
应该去问数学老师?