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

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