Free_Pascal练习题

《Free_Pascal练习题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1．满足a*a*a+b*b*b+c*c*c=abc的数字称为水仙花数，求所有的100-999之间的水仙花数。programsamp2;vara,b,c:integer;BEGINfora:=1to9doforb:=0to9doforc:=0to9doif(a*a*a+b*b*b+c*c*c)=(a*100+b*10+c)thenwriteln(a*100+b*10+c);readln();END.2.百鸡问题：一只公鸡值3元，一只母鸡值1元，而1元可买3只小鸡。现有100元钱，想买100只鸡。问可

2、买公鸡、母鸡、小鸡各几只programsamp4;vargj,mj,xj:integer;BEGINforgj:=1to33doformj:=1to98doforxj:=1to98doif(gj*3+mj*1+xj/3=100)and(gj+mj+xj=100)thenwriteln('gj=',gj,'mj=',mj,'xj=',xj);readln();END.3满足a*a*a*a+b*b*b*b+c*c*c*c+d*d*d*d=abcd的数字称为四位水仙花数，求所有的1000-9999之间的

3、水仙花数。programsamp6;vara,b,c,d:integer;BEGINfora:=1to9doforb:=0to9doforc:=0to9doford:=0to9doif(a*a*a*a+b*b*b*b+c*c*c*c+d*d*d*d)=(a*1000+b*100+c*10+d)thenwriteln(a*1000+b*100+c*10+d);readln();END.2．在屏幕上输出乘法口诀表。ProgramExam4;Vara,b:integer;Beginfora:=1to9d

4、obeginforb:=1toadowrite(b,'X',a,'=',a*b:2,'');writelnend;Readln;End.5.用FOR循环的方法做以前做过的题：某车棚存有自行车和三轮车共65辆，它们的轮子数合计为150个，求该棚内存有的自行车和三轮车各是多少辆？Programsamp10;vara,b:integer;BeginFora:=1to65doforb:=1to65doif(a+b=65)and(2*a+3*b=150)thenwriteln('a=',a,'b=',b);

5、Readln;End.6．一个两位数x，将它的个位数字与十位数字对调后得到一个新数y，此时y恰好比x大36，请编程求出所有这样的两位数。程序如下，结果是：15,26,37,48,59不要先给他看.Programex34;varx,y,a,b:integer;BeginForx:=10to99doBegina:=xdiv10;b:=xmod10;y:=b*10+a;ify-x=36thenwriteln(x);End;Readln;End.7.在屏幕上.打印出100至200之间的奇数，每行输出5个数

6、。Programsamp11;Vara,b:integer;Beginb:=0;Fora:=100to200dobeginif(amod2=1)thenbeginb:=b+1;if(bmod5=0)thenwriteln(a,'')elsewrite(a,'')end;end;Readln;End.8.一辆快车和一辆慢车开往同一地点，快车票价为18元，慢车票价为13.5元，共售出400张，共计5940元，求快车票和慢车票各多少张?.Programsamp12;varkc,mc:integer;Be

7、ginForkc:=1to400doformc:=1to400doif(kc*18+mc*13.5=5940)and(kc+mc=400)thenwrite('kc=',kc,'mc=',mc);Readln;End.9.输入一个自然数，求这个自然数的所有约数之和。Programsamp13;vara,b,s:integer;Beginwrite('inputa=');readln(a);s:=0;Forb:=1toadoifamodb=0thens:=s+b;write('s=',s);Read

8、ln;End.10.在屏幕上输出1至300之间的个位数是3的数，每行输出3个数。Programsamp15;vara,b:integer;Beginb:=0;Fora:=1to300dobeginif(amod10=3)thenbeginb:=b+1;if(bmod3=0)thenwriteln(a,'')elsewrite(a,'')end;end;Readln;End.11．有一堆100多个零件，如果3个3个数剩2个，5个5个数剩3个，7个7个数剩5个，请计算出这堆零件至少有多