整数分解(版本2) pascal

来源：学生作业帮编辑：大师作文网作业帮分类：综合作业时间：2024/09/23 22:29:34

整数分解(版本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.

pascal程序设计输入一个整数n,n 求N个整数的平均数、众数和中位数用pascal,我只学过pascal pascal pascal pascal! 输入一个正整数N,把它分解成质因子相乘的形式.如：36=1×2×2×3×3；用 FREE pascal. pascal题目随机产生10个两位随机整数,输出（1）这些随机数；（2）其中最大数、位置和最小数、位置.2：45前有分! 某个三位整数位abc,请分解出该三位整数中的三个位数a、b、c.如“123”,分解后得到1、2、3的VB表达式 m为何整数时,9m^2+5m+26能分解为两个连续整数的乘积若x^2+mx+15能在整数范围内因式分解,则m可取的整数值有个 pascal编程求1+2+3+..+n的值求1+2+3+..+n的值输入一个整数n 输出一个整数,表示1~n这n个 PASCAL：如何将一个四位数的各位数字分解出来多项式x^2+kx+8,在整数范围内能够分解因式,那么k的值是 pascal中定义2的n次方