作业帮整数分解(版本2) pascal一个正整数可以分解成若干个自然数之和.请你编一个程序,对于给出的一个正整数n(1
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/02 19:42:29
整数分解(版本2) pascal一个正整数可以分解成若干个自然数之和.请你编一个程序,对于给出的一个正整数n(1
整数分解(版本2) pascal
一个正整数可以分解成若干个自然数之和.请你编一个程序,对于给出的一个正整数n(1
整数分解(版本2) pascal一个正整数可以分解成若干个自然数之和.请你编一个程序,对于给出的一个正整数n(1
var a,b,c:array[1..100000] of integer;
i,j,m,n,x,l1,l2,jw,p,s:longint;
begin
readln(m);
if m=1 then
begin
writeln('1');
halt;
end;
case m mod 3 of
0:begin
x:=m div 3;
p:=0;
end;
1:begin
x:=m div 3-1;
p:=2;
end;
2:begin
x:=m div 3;
p:=1;
end;
end;
a[1]:=1;
l1:=1;
for j:=1 to x do
begin
for i:=1 to l1 do
begin
a[i]:=a[i]*3+jw;
jw:=a[i] div 10;
a[i]:=a[i] mod 10;
end;
while jw0 do
begin
l1:=l1+1;
a[l1]:=jw mod 10;
jw:=jw div 10;
end;
end;
for i:=1 to p do
begin
for j:=1 to l1 do
begin
a[j]:=a[j]*2+jw;
jw:=a[j] div 10;
a[j]:=a[j] mod 10;
end;
while jw0 do
begin
l1:=l1+1;
a[l1]:=jw mod 10;
jw:=jw div 10;
end;
end;
for i:=l1 downto 1 do
write(a[i]);
end.