pascal语言题（追加分）1、球从100米高度落下,每次落地后又反弹落地前高度的一半再落下,问它在第10次落地时,共经过多少米,第10次反弹多高?2、古希腊人认为因子的和等于它本身的数是完全

Question

pascal语言题（追加分）
1、球从100米高度落下,每次落地后又反弹落地前高度的一半再落下,问它在第10次落地时,共经过多少米,第10次反弹多高?
2、古希腊人认为因子的和等于它本身的数是完全数（自身因子除外）,求2~1000内的所有完全数.

Answer 1

1.program wood;var sn,hn:real; n:longint; begin sn:=100;hn:=sn/2; for n:=2 to 10 do begin sn:=sn+2*hn; hn:=hn/2; end; writeln('the total of road is',sn); writeln('the tenth meter is',hn); end.2.progra...