摘要：
5、用REPEAT语句编程找出所有正整数（三位数）中的水仙花数，如：１５３＝１３＋５３＋３３。那么１５３就是水仙花数。（参考答案：153、370、371、407）var i,g,s,b:integer;begin i:=100; repeat g:=i mod 10; s:=i div 10 mod 10; b:=i div 100; if i=g*g*g+s*s*s+b*b*b then wri... 阅读全文
摘要：
4、编程找出四位整数ABCD中满足下述关系的数：（AB+CD）（AB+CD）=ABCD 例如：（20+25）×（20+25）=2025（参考答案：2025、3025、9801）var i:integer;begin for i:=1000 to 9999 do if sqr((i div 100)+(i mod 100))=i then writeln(i); readlnend.}v... 阅读全文
摘要：
猴子吃桃子的问题：猴子第一天摘下若干个桃子，当即吃了一半还不过瘾，又多吃了一个；第二天又将剩下的桃子吃掉一半又多吃了一个；以后每天早上都吃了前一天剩下的一半零一个；到了第十天想再吃时，只剩下一个桃子，求第一天共摘了多少个桃子？（参考答案：1534个）var i,j,k:integer;begin j:=1; for i:=1 to 9 do j:=(j+1)*2; writeln(j); read... 阅读全文
摘要：
打印出所有各位数字均为偶数的三位数,要求打印输出是每行10个数，然后在最后一行中打印输出满足条件的三位数有多少个？（参考答案：100个）var i,j:integer;begin j:=0; for i:=100 to 999 do if (i mod 10 mod 2=0)and(i div 10 mod 10 mod 2=0)and(i div 100 mod 2=0) then begin ... 阅读全文
摘要：
求所有三位数中，它们各位数字之和能被7整除的这些三位数之和是多少？要求首先打印出所有满足条件的三位数，然后换行再打印输出它们的和！（参考答案：三位数个数有126个，总和等于69237）var i,j,k:longint;begin k:=0; for i:=100 to 999 do begin j:=(i mod 10)+(i div 10 mod 10)+(i div 100); if j m... 阅读全文