一筐鸡蛋,3个3个数多2个,4个4个数也多2个,5个5个数还多2个。这筐鸡蛋最少有几个?
一筐鸡蛋,3个3个数多2个,4个4个数也多2个,5个5个数还多2个。这筐鸡蛋最少有几个?写出运算过程,否则不选!...
一筐鸡蛋,3个3个数多2个,4个4个数也多2个,5个5个数还多2个。这筐鸡蛋最少有几个?
写出运算过程,否则不选! 展开
写出运算过程,否则不选! 展开
3个回答
2013-08-02
展开全部
求3、4、5的最小公倍数:
3的倍数有:6、9、12、15、18、21、24、27、30、33、36、39、42、45、48、51、54、57、60
4的倍数有:8、12、16、20、24、28、32、36、40、44、48、52、56、60
5的倍数有:10、15、20、25、30、35、40、45、50、55、60
可以得知:3、4、5的最小公倍数是:60
60+2=62 可以得知这筐鸡蛋有62个。
3的倍数有:6、9、12、15、18、21、24、27、30、33、36、39、42、45、48、51、54、57、60
4的倍数有:8、12、16、20、24、28、32、36、40、44、48、52、56、60
5的倍数有:10、15、20、25、30、35、40、45、50、55、60
可以得知:3、4、5的最小公倍数是:60
60+2=62 可以得知这筐鸡蛋有62个。
2013-08-02
展开全部
62个找出3 4 5共同的倍数就可以。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-08-02
展开全部
哥哥考弟弟一道数学题,题目是:"有一筐鸡蛋,2个2 个数多1个,3个3个数多2个,4个4个数多3个,5个5个数正好数完,问这筐鸡蛋最少是几个?"
为解决此问题,弟弟编了一个如下Visual Basic程序,其中s表示鸡蛋数,t用于控制循环。但此程序存在两处错误,已分别用划线及(1)、(2)标注。请改正这二处错误,并将正确内容按顺序填写在程序下方(1)和(2)划线处。
Private Sub Command1_Click()
Dim s As Integer, t As Boolean
s = 5
t = False
Do While Not t
s = s + 1
t = (s Mod 2 = 1) And (s Mod 3 = 2) And (s Mod 4 = 3) And (s Mod 5 <> 0) '(1)
Next '(2)
Text1.Text = Str(s)
End Sub
程序中划线处(1)改为
程序中划线处(2)改为
程序中划线处(1)改为 t = (s Mod 2 = 1) And (s Mod 3 = 2) And (s Mod 4 = 3) And (s Mod 5 = 0)
程序中划线处(2)改为 Loop
Private Sub Command1_Click()
Dim s As Integer, t As Boolean
s = 5
t = False
Do While Not t
s = s + 1
t = (s Mod 2 = 1) And (s Mod 3 = 2) And (s Mod 4 = 3) And (s Mod 5 = 0) '(1)
Loop '(2)
Text1.Text = Str(s)
End Sub
为解决此问题,弟弟编了一个如下Visual Basic程序,其中s表示鸡蛋数,t用于控制循环。但此程序存在两处错误,已分别用划线及(1)、(2)标注。请改正这二处错误,并将正确内容按顺序填写在程序下方(1)和(2)划线处。
Private Sub Command1_Click()
Dim s As Integer, t As Boolean
s = 5
t = False
Do While Not t
s = s + 1
t = (s Mod 2 = 1) And (s Mod 3 = 2) And (s Mod 4 = 3) And (s Mod 5 <> 0) '(1)
Next '(2)
Text1.Text = Str(s)
End Sub
程序中划线处(1)改为
程序中划线处(2)改为
程序中划线处(1)改为 t = (s Mod 2 = 1) And (s Mod 3 = 2) And (s Mod 4 = 3) And (s Mod 5 = 0)
程序中划线处(2)改为 Loop
Private Sub Command1_Click()
Dim s As Integer, t As Boolean
s = 5
t = False
Do While Not t
s = s + 1
t = (s Mod 2 = 1) And (s Mod 3 = 2) And (s Mod 4 = 3) And (s Mod 5 = 0) '(1)
Loop '(2)
Text1.Text = Str(s)
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询