作业帮Pascal编程求解!
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/07/09 08:32:21
Pascal编程求解!
1、给出一个整数,在屏幕上显出这个整数每位上的数.
2、鸡兔同笼问题：
已知鸡兔总头数为H,总脚数为F（其中鸡兔各至少有一只）
求鸡M兔N各为多少?
3、百马百瓦问题
已知有一百匹马和一百吨瓦,大马一次能驮2吨瓦,而中马
一次只能驮1吨瓦,小马一次只能驮半吨瓦,这一百匹马恰
好能一次把这一百吨瓦驮完,求大马、中马和小马的可能
的数量X、Y、Z?
4、求1——100之间的所有的完数：6=1+2+3 28=1+2+4+7+14
5、求一个整数的因子：6=2*3
6、硬币兑换问题：将一元钱兑换为2分、5分、1分的硬币,求：
（1）只兑换一种硬币的分法；
（2）必须同时含有以上3种硬币的分法；
7、求100—1000之间所有的水仙花数：ABC=A3+B3+C3,如：153、
370、371、407
8、爱因斯坦阶梯问题：有一台阶,只有一步7阶时才刚好走完,其
余一步2个台阶则最后余1个台阶、3—2、4—3、5—4、6—5?
1、给出一个整数,在屏幕上显出这个整数每位上的数.
2、鸡兔同笼问题：
已知鸡兔总头数为H,总脚数为F（其中鸡兔各至少有一只）
求鸡M兔N各为多少?
3、百马百瓦问题
已知有一百匹马和一百吨瓦,大马一次能驮2吨瓦,而中马
一次只能驮1吨瓦,小马一次只能驮半吨瓦,这一百匹马恰
好能一次把这一百吨瓦驮完,求大马、中马和小马的可能
的数量X、Y、Z?
4、求1——100之间的所有的完数：6=1+2+3 28=1+2+4+7+14
5、求一个整数的因子：6=2*3
6、硬币兑换问题：将一元钱兑换为2分、5分、1分的硬币,求：
（1）只兑换一种硬币的分法；
（2）必须同时含有以上3种硬币的分法；
7、求100—1000之间所有的水仙花数：ABC=A3+B3+C3,如：153、
370、371、407
8、爱因斯坦阶梯问题：有一台阶,只有一步7阶时才刚好走完,其
余一步2个台阶则最后余1个台阶、3—2、4—3、5—4、6—5?
先给你1,2,4的程序
再问： 暂时要4就够了
再答： var i,k:longint;
procedure dd(a:longint);
var j,t:longint;
begin
t:=0;
for j:=1 to a-1 do
if a mod j=0 then t:=t+j;
if t=a then
write(t,' ');
end;
begin
for i:=1 to 100 do
dd(i);
end.
再问： 看不懂.....可以只用if语句和for语句写吗？
再答： var i,k,j,t:longint;
begin
for i:=1 to 100 do
begin
t:=0;
for j:=1 to a-1 do
if a mod j=0 then t:=t+j;
if t=a then
write(t,' ');
end;
end.
再问： 暂时要4就够了
再答： var i,k:longint;
procedure dd(a:longint);
var j,t:longint;
begin
t:=0;
for j:=1 to a-1 do
if a mod j=0 then t:=t+j;
if t=a then
write(t,' ');
end;
begin
for i:=1 to 100 do
dd(i);
end.
再问： 看不懂.....可以只用if语句和for语句写吗？
再答： var i,k,j,t:longint;
begin
for i:=1 to 100 do
begin
t:=0;
for j:=1 to a-1 do
if a mod j=0 then t:=t+j;
if t=a then
write(t,' ');
end;
end.