FREEPASCAL循环结构程序练习题（2）：
1计算113135157179…11719Programjisua
Var
fmi
tegersrealbegi
1s0while
17dobegi
fm
2ss1fm
2e
dwritessReadl
E
d2同构数是指一个数恰好是它的平方数右端的数字，例如：5的平方等于25，数5是25右端的数字，所以5就是同构数。编程求出11000之间的同构数。ProgramtgsVar
i
tegerjlo
gi
tbegi
for
1to999dobegi
j

if
1a
d
9a
djmod100the
writel

9elseif
10a
d
99a
djmod1000the
writel

9elseif
100a
d
999a
djmod10000the
writel

9e
dReadl
E
d3．找出所有符合abcdabcdabcd等式的4位数。请用FOR循环和WHILE循环两种解法编程。技巧：设一个四位数为
则他的前两位是
div100后两位是
mod100
f用FOR循环程序：Programsample1Varabcd
i
tegerbegi
for
1000to9999dobegi
ab
div100cd
mod100ifabcdabcd
the
writel
e
dReadl
E
d用WHILE循环程序：Programsample2Varabcd
i
tegerbegi
1000while
9999dobegi
ab
div100cd
mod100ifabcdabcd
the
writel

1e
dReadl
E
d4一个书包能装3KG物品，小东有5本书，重量分别是029kg、052kg、078kg、116kg、15kg。问书包中最多能装哪些书？解题思路：分别用abcde表示5本书，每本书只有两种状态：装入（设为1）和不装入（设为0）。利用5重循环在不超过书包的承重量的情况下，求出装入得物品及它们的最大重量。程序如下：ProgramschoolbagVarabcdea1b1c1d1e1i
tegermgrealbegi
m0fora0to1do
fforb0to1doforc0to1doford0to1dofore0to1dobegi
ga029b052c078d116e15ifg3a
dgmthe
begi
mga1ab1bc1cd1de1ee
de
dwritel
aa1bb1cc1dd1ee1writemm42Readl
E
d5甲乙丙三数之和为100，甲数除以乙数，丙数除以甲数，得数都是5余1。求乙数是多少？Programh100Varabci
tegerbegi
forb1to4dobegi
a5b1c5a1ifabc100the
writel
bbe
dReadl
E
d
fr