整数分解(版本2) pascal一个正整数可以分解成若干个自然数之和.请你编一个程序,对于给出的一个正整数n(1
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 22:02:05
![整数分解(版本2) pascal一个正整数可以分解成若干个自然数之和.请你编一个程序,对于给出的一个正整数n(1](/uploads/image/z/14769628-52-8.jpg?t=%E6%95%B4%E6%95%B0%E5%88%86%E8%A7%A3%28%E7%89%88%E6%9C%AC2%29+pascal%E4%B8%80%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0%E5%8F%AF%E4%BB%A5%E5%88%86%E8%A7%A3%E6%88%90%E8%8B%A5%E5%B9%B2%E4%B8%AA%E8%87%AA%E7%84%B6%E6%95%B0%E4%B9%8B%E5%92%8C.%E8%AF%B7%E4%BD%A0%E7%BC%96%E4%B8%80%E4%B8%AA%E7%A8%8B%E5%BA%8F%2C%E5%AF%B9%E4%BA%8E%E7%BB%99%E5%87%BA%E7%9A%84%E4%B8%80%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0n%281)
整数分解(版本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.