1.猴子吃桃子,第一天摘下若干个桃子当即吃掉了一半多一个,第二天又把剩下的桃子吃掉了一半多一个,以后每天都吃前一天剩下的桃子的一半多一个,到第十天,猴子想吃的时候,就只剩下一个

Question

1.猴子吃桃子,第一天摘下若干个桃子当即吃掉了一半多一个,第二天又把剩下的桃子吃掉了一半多一个,以后每天都吃前一天剩下的桃子的一半多一个,到第十天,猴子想吃的时候,就只剩下一个桃子了,问第一天摘了多少?
2.求1950-2030 内 所有的闰年(能被4整除,但不能被100或400整除)
3.求S=1-2+3-4+5...+99-100的值

Answer 1

1.
Dim i Aa Integer, s As Integer
s=1
For i=9 To 1 Step -1
s=(s+1)*2
Next i
2.
Dim i As Integer
For i=1950 To 2030
If i Mod 400=0 Or (i Mod 4=0 And i Mod 1000) Then Print i
Next i
3.
Dim i As Integer, s As Integer, flag As Integer
flag=1
For i=1 To 100
s=s+i*flag
flag=-flag
Next i
Print "S=1-2+3-4+5-...+99-100=";s
希望回答对你有帮助