作业帮用pascal解下列各题1.某人想将手中的一张面值100元的人民币换成10元、5元、2元和1元面值的票子.要求换正好40张,且每种票子至少一张.请输出所有可能的换法.（联系百钱买百鸡问题）2.求菲波
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/03 10:41:04
用pascal解下列各题1.某人想将手中的一张面值100元的人民币换成10元、5元、2元和1元面值的票子.要求换正好40张,且每种票子至少一张.请输出所有可能的换法.（联系百钱买百鸡问题）2.求菲波
用pascal解下列各题
1.某人想将手中的一张面值100元的人民币换成10元、5元、2元和1元面值的票子.要求换正好40张,且每种票子至少一张.请输出所有可能的换法.（联系百钱买百鸡问题）
2.求菲波拉契数列a0,a1,a2,……a20.a0=0,a1=1,a2=a1+a0,a3=a2+a1,……,
an=an-1+an-2; 如0,1,1,2,3,5,8,13,21,……
3.将一根长为9225px的钢管截成长为1725px和975px两种规格的短料.在这两种规格的短料至少各截一根的前提下,如何截才能余料最少.
我用的是free pascal
用pascal解下列各题1.某人想将手中的一张面值100元的人民币换成10元、5元、2元和1元面值的票子.要求换正好40张,且每种票子至少一张.请输出所有可能的换法.（联系百钱买百鸡问题）2.求菲波
1
var a,b,c,d:integer;
outf:text;
begin
for a:=0 to 10 do
for b:=0 to 20 do
for c:=0 to 50 do
for d:=0 to 100 do
if a*10+b*5+c*2+d=100 then write(outf,a,'+’,b,'+',c,'+',d,'=100');
end.
2
var
a : array[1..4000] of int64;
i , n:integer;
begin
a[1]:=1;
a[2]:=1;
readln(n);
for i:=3 to n do a[i]:=a[i-1]+a[i-2];
for i:=1 to n do write(a[i],' ');
end.
3只有一个正确值吗