作业帮pascal因式分解问题
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/05/15 20:53:01
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]
输入：
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]
应该去问数学老师?