摘要：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... 阅读全文

摘要：打印出所有各位数字均为偶数的三位数,要求打印输出是每行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... 阅读全文