搜搜做题作业网free pascal练习题求解答 急！ 求代码
来源：学生作业帮 编辑：搜搜做题作业网作业帮 分类：综合作业 时间：2024/05/12 10:20:54
free pascal练习题求解答 急！ 求代码
1、将任意一个整数分解质因数。如输入36则输出36=2*2*3*3
2、编写一程序验证角谷猜想：对于任意一个大于一的自然数n，若n为奇数则将n变为3*n+1，否则将n变成n的一半，经过若干次变换n一定可以变为1
如输入5 输出n=3*5+1=16,n=16 div 2 =8,n=8 div 2=4, n=4 div 2=2,n=2 div 2=1, OK
3、有一堆200多个的零件，三个三个数剩两个，五个五个数剩三个，七个七个数剩五个。计算零件个数（不能用数学方法直接列方程）
4、求所有的水仙花数。所谓水仙花数是指一个三位数abc满足a^3+b^3+c^3=abc
多谢各位大神！
1、将任意一个整数分解质因数。如输入36则输出36=2*2*3*3
2、编写一程序验证角谷猜想：对于任意一个大于一的自然数n，若n为奇数则将n变为3*n+1，否则将n变成n的一半，经过若干次变换n一定可以变为1
如输入5 输出n=3*5+1=16,n=16 div 2 =8,n=8 div 2=4, n=4 div 2=2,n=2 div 2=1, OK
3、有一堆200多个的零件，三个三个数剩两个，五个五个数剩三个，七个七个数剩五个。计算零件个数（不能用数学方法直接列方程）
4、求所有的水仙花数。所谓水仙花数是指一个三位数abc满足a^3+b^3+c^3=abc
多谢各位大神！
var
a,b,c,d,e:integer;
begin
//原2
write('(...)');
writeln;
for a:=1 to 5 do
begin
for c:=1 to 3 do
begin
for b:=1 to 5-a do write(' ');
for b:=1 to a do write('*');
for b:=a-1 downto 1 do write('*');
for b:=1 to 5-a do write(' ');
end;
writeln;
end;
writeln;
//2
write('(2)');
writeln;
write('please write a number:');
readln(e);
while e>1 do
begin
if e mod 2=1
then begin
write('3*',e,'+1=',e*3+1,' ');
e:=e*3+1;
end
else begin
write(e,' div 2=',e div 2,' ');
e:=e div 2;
end;
end;
write('OK');
writeln;
writeln;
//3
write('(3)');
writeln;
a:=101;
repeat
a:=a+1;
until (a mod 3=2)and(a mod 5=3)and(a mod 7=5);
write(a);
writeln;
writeln;
//4
write('(4)');
writeln;
for d:=100 to 999 do
begin
a:=d div 100;
b:=(d-a*100) div 10;
c:=d mod 10;
if a*a*a+b*b*b+c*c*c=d then writeln(d);
end;
readln;
是我，望采纳
a,b,c,d,e:integer;
begin
//原2
write('(...)');
writeln;
for a:=1 to 5 do
begin
for c:=1 to 3 do
begin
for b:=1 to 5-a do write(' ');
for b:=1 to a do write('*');
for b:=a-1 downto 1 do write('*');
for b:=1 to 5-a do write(' ');
end;
writeln;
end;
writeln;
//2
write('(2)');
writeln;
write('please write a number:');
readln(e);
while e>1 do
begin
if e mod 2=1
then begin
write('3*',e,'+1=',e*3+1,' ');
e:=e*3+1;
end
else begin
write(e,' div 2=',e div 2,' ');
e:=e div 2;
end;
end;
write('OK');
writeln;
writeln;
//3
write('(3)');
writeln;
a:=101;
repeat
a:=a+1;
until (a mod 3=2)and(a mod 5=3)and(a mod 7=5);
write(a);
writeln;
writeln;
//4
write('(4)');
writeln;
for d:=100 to 999 do
begin
a:=d div 100;
b:=(d-a*100) div 10;
c:=d mod 10;
if a*a*a+b*b*b+c*c*c=d then writeln(d);
end;
readln;
是我，望采纳