编写程序，从键盘输入一个3位的正整数，输出它的百位数，十位数和个位数，并且计算它的和
编写程序，从键盘输入一个3位的正整数，输出它的百位数，十位数和个位数，并且计算它的和
不区分大小写匿名
#include &stdio.h&main(){ int n,a,b,c; scanf("%d",&n); a = n/ 100; b = (n-a*100)/10; c = n % 10; printf("%d的各位分别是%d，%d，%d，其和为%d\n",n,a,b,c,a+b+c);}
有个函数叫取整，除100，取整，等百位，减去百位继续
代码如下，注释也在里面：
#include&stdio.h&#include&stdlib.h&
int main(){&&& int num,a,b,c;&&& //输入三位数 &&& printf("请输入一个三位整数:\n");&&& scanf("%d",&num);&&& &&& //输出各位数&&& a=num/100;&&& b=(num-a*100)/10;&&& c=(num-a*100-b*10);&&& printf("千位-%d,十位-%d,个位-%d\n",a,b,c);&&& &&& system("PAUSE");&&& return 0;}
等待您来回答
编程领域专家一3位数，百位数比十位数大1，个位数比十位数的3倍少2。将三个数颠倒，三位数和原三位数的和1171，求三位_百度知道
一3位数，百位数比十位数大1，个位数比十位数的3倍少2。将三个数颠倒，三位数和原三位数的和1171，求三位
课本上不懂
提问者采纳
有不对的可以给我指出哈~·可以设这个数的十位数上的数值为X
(是数值哦~~看清楚）那么这个数的百位数上的数值就是X+1 ，希望你能看懂！）根据题目可以知道后来得到的三位数和原三位数之和为1171那么就有113X+98+311X-199=1171解出得未知数X=3所以这个三位数就是113X+98=113*3+98=437好啦~解完了。以下是我的回答额，你应该看得懂吧。我也好久没做数学题了。你看懂了吗，个位数上的数值就是3X-2所以这个数就可以表示为（X+1)*100+10X+（3X-2)=113X+9衷蜖篡蝗诂豪隔且8将三个数颠倒，那么得到的三位数就是（3X—2）*100+10X+(X+1)=311X-199
(这里我没一步一步的数写值
提问者评价
非常感谢啊，我懂了，谢谢！
其他类似问题
按默认排序
其他3条回答
100(3x阕薅忿甘莜仿击脑-2)+10x+x+1100（x+1）+10x+3x-2+100(3x-2)+10x+x+1=1171424x=1272十位设原来十位上数字为x那么原数为100（x+1）+10x+3x-2颠倒后为：3x-2=4原数：x=3百位：x+1=4个位
设十位数是X，百位数就是X+1，个位数：3X-2三位数字是：3X-2+10X+100(X+1)=113X+98颠倒后：百位数3X-2，十位数不变，个位数X+1+ [x+1+10x+100(3x-2)]=424x-101x=3原来三位数：437
在1171中，7÷2＝3余1，即7为十位数×2后＋1（个位数相加后进1），所以十位数为3，百位数为4，个位数为7，原三位数为437验证：437＋734＝1171
三位数的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁有一个三位数,百位数是个位数的四倍,十位数是百位数加个位数的和_百度知道
有一个三位数,百位数是个位数的四倍,十位数是百位数加个位数的和
提问者采纳
望采纳;或=葱阕搬酵植寂代勺10，所以X=1而这个三位数为，且X必须为正整数，又因为5X不可能&gt，十位数为X+4X=5X解，谢谢，451解答完毕，则百位数为4X：设个位数位X
提问者评价
太谢谢了！！！！！！！！！！！！！！！！！！！！
其他类似问题
三位数的相关知识
其他1条回答
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁已知一个三位数的百位数比十位数大一，个位数比十位数小一，设十位数为n （1)用关于式子表示这个三位数_百度知道
已知一个三位数的百位数比十位数大一，个位数比十位数小一，设十位数为n （1)用关于式子表示这个三位数
表示为(n+1)*100十位数为n
表示为10n个位苔漏催貉诎股给欺数比十位数小一,则百位数字为n+1百位数比十位数大一,则个位数字为n-1
其他类似问题
三位数的相关知识
按默认排序
其他2条回答
（n+1）n（n-1）
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁200分悬赏，速度！！在三位数中,百位数比十位数小,十位数比个位数小的数有几个？_百度知道
200分悬赏，速度！！在三位数中,百位数比十位数小,十位数比个位数小的数有几个？
200分悬赏，速度！！在三位数中,百位数比十位数小,十位数比个位数小的数有几个？ VB程序怎么写，在线等厶肝馆何弋蛊龟坍骇开！！！！！！！！！！！！！！！！
For i = 100 To 999
'所有的三位数
j = i \ 100
'百位上的数
k = (i - 100 * j) \ 10
'十位上的数
l = i - 100 * j - 10 * k
'个位上的数
If (l & k And k & j) Then '个位数字大于十位数，十位数大于百位数。
'记录满足条件的个数
If (n Mod 20 = 0) Then '每20个换行
End IfNext iEnd Sub有错么，仔细看下！！！！！！谢谢了！
提问者采纳
Private Sub Form_Click()Dim i As Integer, s As Long, n As Integeri = 100Do While i &= 100 And i &= 999If i \ 100 & (i \ 10 Mod 10) And (i \ 10 Mod 10) & (i Mod 1鉅衷顿菏塥孤舵酞罚喀0) Thens = s + in = n + 1End Ifi = i + 1LoopPrint &百位大于十位,十位大于个位的三位数的个数：&; n运行结果：84当然你的程序也是正确的，只是没有打印出个数，可以在最后加上个print n。
其他类似问题
三位数的相关知识
其他15条回答
84个VB不会
就是 三位数升序的题目在窗体上增加一个textBox1,然后指定多行显示(当然也可以使用别的方法输出结果)增加一个子程序,程序代码如下dim num as longdim a,b,c as intergerfor num=100 to 999
a=num mod 10
b=(num/10) mod 10
if a&b and b&c then textBox1.text=textBox1.text+num+vbnewlinenext num采纳下
199个2楼啊789不算？
在三位数中,百位数比十位数小,十位数比个位数小的数有几个？解：百位为1且满足要求的三位数有28个；百位为2且满足要求的三位数有21个；百位为3且满足要求的三位数有15个；百位为4且满足要求的三位数有10个；百位为5且满足要求的三位数有6个；百位为6且满足要求的三位数有3个；百位为7且满足要求的三位数有1个，故共有：28+21+15+10+6+3+1=84个VB不会
12312412512612712812913413513613713813914514614714814915615715815916716816917817918923423523623723823924524624724824925625725825926726826927827928934534634734834935635735835936736836937837938945645745845946746846947847948956756856957857958967867968978984个Private Sub Command1_Click()Dim kk As Integerkk = 0For i = 1 To 8
For j = i + 1 To 9
For k = j + 1 To 9
Text1.Text = Text1.Text & i & j & k & vbCrLf
'显示到文本框中
kk = kk + 1
Text1.Text = Text1.Text & &共& & kk
& &个&End Sub
238当个位为9时，十位有9种情况，百位有8种情况。8*9=72当个位为8时，十位有8种情况，百位有7种8*7=56...
67*6=42...
4时 4*3=12
所以共：72+56+42+30+20+12+6+=238
'84个Private Sub Command1_Click()Dim num, i As LongDim a, b, c As IntegerFor num = 100 To 999
a = num Mod 10
b = (num \ 10) Mod 10
c = num \ 100
If a & b And b & c Then i = i + 1Next num Text1.Text = i'显示多少个End Sub
数学这么弱，学编程有屁用啊
恩 百位是1，则其他位是7+6+5+4+3+2+1百位是2，则其他位是6+5+4+3+2+1百位是3，则其他位是5+4+3+2+1百位是4，则其他位是4+3+2+1百位是5，则其他位是3+2+1百位是6，则其他位是2+1百位是7，则其他位是1所以一共84个 这样写的 希望能帮到你 Private Sub Command1_Click()Text1.Text = List1.List(List1.ListIndex)End SubPrivate Sub Form_Load()With List1.AddItem &item1&.AddItem &item2&.AddItem &item3&.AddItem &item4&End WithText1.Text = EmptyEnd SubPrivate Sub List1_DblClick()Command1_ClickEnd Sub
答案是84个，你运行一下就知道了Private Sub Command4_Click()Dim i As IntegerDim j As IntegerDim k As IntegerDim ResultCount As IntegerDim FinalResult(999) As IntegerResultCount = 0For i = 1 To 9
For j = i + 1 To 9
For k = j + 1 To 9
ResultCount = ResultCount + 1
FinalResult(ResultCount) = i * 100 + j * 10 + k
Next jNext iPrint &共& & ResultCount & &个：&For i = 1 To ResultCount Print FinalResult(i)Next iEnd Sub我也凑个热闹吧
你这个可以的···改进下Private Sub Command1_Click()
Dim i As Integer, j As Byte, k As Byte, l As Byte, n As Integer
For i = 100 To 999
'所有的三位数
j = i \ 100
'百位上的数
k = (i - 100 * j) \ 10
'十位上的数
l = i Mod 10
'个位上的数
If (l & k And k & j) Then '个位数字大于十位数，十位数大于百位数。
'记录满足条件的个数
If (n Mod 5 = 0) Then '每5个换行
MsgBox &个位数字大于十位数，十位数大于百位数的数共有& & n & &个“&End Sub其实更快的方法是Private Sub Command1_Click()Dim n As IntegerDim i As Byte, j As Byte, k As ByteFor i = 1 To 8
For j = i + 1 To 9
For k = j + 1 To 9
Print i & j & k & &
If n Mod 5 = 0 Then Print
MsgBox &个位数字大于十位数，十位数大于百位数的数共有& & n & &个&End Sub以上程序全部进行过试验，都正确···可以放心使用··
在三位数中,百位数比十位数小,十位数比个位数小的数有几个？解：百位为1且满足要求的三位数有28个；百位为2且满足要求的三位数有21个；百位为3且满足要求的三位数有15个；百位为4且满足要求的三位数有10个；百位为5且满足要求的三位数有6个；百位为6且满足要求的三位数有3个；百位为7且满足要求的三位数有1个，故共有：28+21+15+10+6+3+1=84个vb程序.代码如下'===============================================Option ExplicitDim a(1 To 20) As IntegerPrivate Sub Command1_Click()
Dim i As Integer, j As Integer
Text1(1).Text = &&
For i = 0 To 2
If Check1(i).Value && 0 Then
'Text1(1).Text = Text1(1).Text & Check1(i).Caption
For j = 1 To 20
If a(j) &= (10 + i * 10) And a(j) &= (1 + i * 10) Then
Text1(1).Text = Text1(1).Text & a(j) & & &
Next iEnd SubPrivate Sub Command2_Click()
Dim i As Integer
Dim s As String
Text1(1).Text = &&
For i = 1 To 20
a(i) = 30 * Rnd() + 1
s = s & a(i) & & &
Text1(0).Text = sEnd Sub'===============================================Begin VB.Form Form1
BorderStyle
'Fixed Single
&百度知道&
ClientHeight
ClientLeft
ClientWidth
'False
'False
ScaleHeight
ScaleWidth
StartUpPosition =
'窗口缺省
mandButton Command2
&刷新随即数&
Begin VB.TextBox Text1
Begin VB.Frame Frame1
Begin VB.CheckBox Check1
Begin VB.CheckBox Check1
Begin VB.CheckBox Check1
mandButton Command1
Begin VB.TextBox Text1
Begin VB.Label Label2
'Transparent
&统计数组：&
Begin VB.Label Label1
'Transparent
&随机数组：&
EndEndAttribute VB_Name = &Form1&Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = False
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}