这几个题哪个高手会写,（1）.输入自然数n,求前n个合数（非素数）,其素因子仅有2,3或5 （2）.自然数a的因子是指能整除a的所有自然数,但不含a本身.例如12因子为1,2,3,4,6 若自然数a的因子之和

这几个题哪个高手会写,（1）.输入自然数n,求前n个合数（非素数）,其素因子仅有2,3或5 （2）.自然数a的因子是指能整除a的所有自然数,但不含a本身.例如12因子为1,2,3,4,6 若自然数a的因子之和
这几个题哪个高手会写,（1）.输入自然数n,求前n个合数（非素数）,其素因子仅有2,3或5 （2）.自然数a的因子是指能整除a的所有自然数,但不含a本身.例如12因子为1,2,3,4,6 若自然数a的因子之和为b,而且b的因子之和又是a,则称a,b为一对亲和数,求最小一对亲和数.（3）.求前n个自然数的平方和,要求不用乘法,如：3的平方和为3*3,可为3+3+3 （4）.试用容积分别为17升,13升的两个桶为工具,从大油罐中倒出15升油,编程显示出具体的倒油过程.（5）.如果一个数从左边读和从右边读都是同一个数,就称为回文数,如：6886就是哦,找出所有3位回文数.（6）.任何大于2的自然数都可以写成不超过4个平方之和.如：8=2的2次方+2的2次方,14=1的2次方+2的2次方+3的2次方 由键盘输入自然数N（2

这几个题哪个高手会写,（1）.输入自然数n,求前n个合数（非素数）,其素因子仅有2,3或5 （2）.自然数a的因子是指能整除a的所有自然数,但不含a本身.例如12因子为1,2,3,4,6 若自然数a的因子之和
第一题:program heshu(input,output); var i,n:integer; begin write('n=');readln(n); for i:=1 to n do if (i mod 2=0) and (i mod 3 =0) and ( i mod 5 = 0) then write(i,' '); writeln; end. 第二题:program qinheshu(input,output); var a:array[2..1000] of integer; i,j:integer; function yinhe(n:integer):integer; var i,s:integer; begin for i:=1 to n-1 do if (n mod i=0) then s:=s+i; yinhe:=s; end; begin for i:=2 to 1000 do a[i]:=yinhe(i); for i:=1 to 999 do for j:=i+1 to 1000 do if a[i]=a[j] then begin write(i,' ',j); halt; end; end. 第3题 program pinfanghe(input,output); var n,i:integer; s:longint; function he(x:integer): longint; var i,j:integer; ss:longint; begin ss:=0; for i:=1 to x do ss:=ss+x; he:=ss; end; begin write('n='); readln(n);s:=0; for i:=1 to n do s:=s+he(i); writeln(s); end. 第5题: program huiwenshu(input,output); var i,j:integer; s1,s2:string; begin for i:=100 to 999 do begin str(i,s1); for j:=3 downto 1 do s2[4-j]:=s1[j]; if s1=s2 then write(s1,' '); end; end. 第六题: program hehe(input,output); var a:array[1..50] of integer; i,j,k,l,n:intger; begin for i:=1 to 50 do a[i]:=i*i; write('n='); readln(n); for i:=1 to 50 do for j:=1 to 50 do for k:=1 to 50 do for l:=1 to 50 do if (a[i]+a[j]+a[k]+a[l]=n) then writeln('n=',i,'*',i,'+',j,'*',j,'+',k,'*',k,'+',l,'*',l); end. 第四题不好用计算机语言