Question

设有一张足够大的纸,厚度为0.5mm,用foxpro编程计算当对折多少次后其总厚度超过珠穆朗玛峰的高度8848m

Answer 1

set talk off

hd=0.5

a=0

do while .T.

hd=hd*2

a=a+1

if hd>8848

"折叠次数为",a

exit

endif

enddo

set talk on