UC知道关于PASCAL程序设计的10几题的答案
来源：百度知道 编辑：UC知道 时间：2024/06/06 17:05:17
我现在是个初一的学生，老师布置了30多题的PASCAL程序设计的题目，其中有10多题不会做，现在请求网上的编程高手帮我做，以下是问题：
第一题：用张一元票换1分，2分和5分的硬币，每种至少一枚，有多少种换法？
第二题：有100元，小鸡2元一只，公鸡3元一只，母鸡5元一只，有几种买法？
第三题：计算1+3+5+7+……+99的值。
第四题：求水仙花数，有a，b，c三个数，如果满足a的3次方+b的3次方+c的3次方=abc，则a，b,c是水仙花数。
第五题：在国际象棋盘上（共64个空格），摆麦子，第一格1颗，第二格2颗……，后面一格的麦子总是前面一个麦子的两倍,求麦子的总数。
第六题：求100内到200内的所有质数。
第七题：求2到1000的首形数（如25的2次方=625，则25是首形数）
第八题：有一堆100多个的零件，若3个3个数，则剩2个，若5个5个数，则剩3个，若7个7个数，则剩5个，编程序，计算零件。
第九题：有这样一个6位数，l,a,b,c,d,e,将其乘3，变成a,b,c,d,e,l,编一个程序。
第十题：求出所有满足下列条件的两位数，新数与原数之和小于100
第十一题：求斐波那契的前50项。
以上就要帮忙的问题啦，回答的答案最好像是个初学者的答案，本人长期求助，记得帮忙啊。
反正各位能回答几道是几道
第一题：用张一元票换1分，2分和5分的硬币，每种至少一枚，有多少种换法？
第二题：有100元，小鸡2元一只，公鸡3元一只，母鸡5元一只，有几种买法？
第三题：计算1+3+5+7+……+99的值。
第四题：求水仙花数，有a，b，c三个数，如果满足a的3次方+b的3次方+c的3次方=abc，则a，b,c是水仙花数。
第五题：在国际象棋盘上（共64个空格），摆麦子，第一格1颗，第二格2颗……，后面一格的麦子总是前面一个麦子的两倍,求麦子的总数。
第六题：求100内到200内的所有质数。
第七题：求2到1000的首形数（如25的2次方=625，则25是首形数）
第八题：有一堆100多个的零件，若3个3个数，则剩2个，若5个5个数，则剩3个，若7个7个数，则剩5个，编程序，计算零件。
第九题：有这样一个6位数，l,a,b,c,d,e,将其乘3，变成a,b,c,d,e,l,编一个程序。
第十题：求出所有满足下列条件的两位数，新数与原数之和小于100
第十一题：求斐波那契的前50项。
以上就要帮忙的问题啦，回答的答案最好像是个初学者的答案，本人长期求助，记得帮忙啊。
反正各位能回答几道是几道
第一题：
var
i,j,k,n:integer;
begin
for i:=1 to 100 do
begin
for j:=1 to 50 do
begin
for k:=1 to 20 do
begin
if (100 mod i=0)and(100 mod j=0)and(100 mod k=0) then
begin
writeln(i,j,k);
n:=n+1;
end
end
end
end
writeln(n);
end.
第二题
var
i,j,k,n:integer;
begin
for i:=0 to 50 do
begin
for j:=0 to 33 do
begin
for k:=0 to 20 do
begin
if(i*2+j*3+k*5=100)then
begin
writeln(i,j,k);
n:=n+1;
end
end
end
end
writeln(n);
end.
第三题
var
i,n:integer;
begin
for i:=1 to 99 do
if i mod 2=1 then n:=n+i;
writeln(n);
end.
第四题
var
a,b,c,i:integer;
begin
for i:=100 to 999 do
begin
a:=i div 100;
b:=i div 10 mod 10;
c:=i mod 10;
if a*a*a+b*b*b+c*c*c=i