编写程序,统计200~300之间的所有满足三个数字之积为24,三个数字之和为10的数的个数
答案:3 悬赏:70 手机版
解决时间 2021-11-24 16:53
- 提问者网友:皆是孤独
- 2021-11-24 04:00
编写程序,统计200~300之间的所有满足三个数字之积为24,三个数字之和为10的数的个数
最佳答案
- 五星知识达人网友:佘樂
- 2021-11-24 05:33
#include
void main()
{
int a,b,c,i,j=0;
for(i=200;i<=300;i++)
{a=i/100;
b=i%100/10;
c=i%10;
if((a*b*c==24)&&(a+b+c==10))
j++;
}
printf("%d\n",j);
}
哈哈!
献丑了!!
void main()
{
int a,b,c,i,j=0;
for(i=200;i<=300;i++)
{a=i/100;
b=i%100/10;
c=i%10;
if((a*b*c==24)&&(a+b+c==10))
j++;
}
printf("%d\n",j);
}
哈哈!
献丑了!!
全部回答
- 1楼网友:舍身薄凉客
- 2021-11-24 08:06
VB例(VB6,VB.NET均可):
Dim i As Integer, Re As String
For i = 200 To 300 Step 1
If Val(Mid(CStr(i), 1, 1)) * Val(Mid(CStr(i), 2, 1)) * Val(Mid(CStr(i), 3, 1)) = 24 And _
Val(Mid(CStr(i), 1, 1)) + Val(Mid(CStr(i), 2, 1)) + Val(Mid(CStr(i), 3, 1)) = 10 Then
Re = Re & CStr(i) & vbCrLf
End If
Next i
MsgBox Re '输出结果
Dim i As Integer, Re As String
For i = 200 To 300 Step 1
If Val(Mid(CStr(i), 1, 1)) * Val(Mid(CStr(i), 2, 1)) * Val(Mid(CStr(i), 3, 1)) = 24 And _
Val(Mid(CStr(i), 1, 1)) + Val(Mid(CStr(i), 2, 1)) + Val(Mid(CStr(i), 3, 1)) = 10 Then
Re = Re & CStr(i) & vbCrLf
End If
Next i
MsgBox Re '输出结果
- 2楼网友:舍身薄凉客
- 2021-11-24 07:01
Private Sub Form_Click()
For i = 200 To 300
a = i \ 100
b = (i - a * 100) \ 10
c = i - a * 100 - b * 10
If a * b * c = 24 And a + b + c = 10 Then s = s + 1
Next i
Print s
End Sub
For i = 200 To 300
a = i \ 100
b = (i - a * 100) \ 10
c = i - a * 100 - b * 10
If a * b * c = 24 And a + b + c = 10 Then s = s + 1
Next i
Print s
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯