计算正整数num各位上的数字之积。_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
在校大学生，质量管理内审员1785064.4浏览总量总评分
评价文档：
计算正整数num各位上的数字之积。|
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢3525人阅读
/* (程序头部注释开始) &/p&&p&* 程序的版权和版本声明部分
* Copyright (c) 2011, 烟台大学计算机学院学生
* 完成日期：
* 输入描述：
* 问题描述及输出：
编写一个Java应用程序，从键盘上输入一个三位整数，计算各个位数之和
* 程序头部的注释结束
import javax.swing.JOptionP
public class Fraction
public static void main(String args[])
loopNumber();
void loopNumber(){
int x,i,j,k;
String num=JOptionPane.showInputDialog(&请输入一个三位数字:&);
x = Integer.parseInt(num);
i = x / 100;
j = x % 100 / 10;
k = x % 10;
int sum = i + j +
System.out.println(&您输入的数字为：：&+x);
System.out.println(&各位数字之和为：
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：55566次
积分：1222
积分：1222
排名：第14139名
原创：71篇
评论：32条
(3)(38)(5)(12)(13)vfp编写程序：请输入一个整数n,求出该数的各位数字之和。_百度知道
vfp编写程序：请输入一个整数n,求出该数的各位数字之和。
提问者采纳
INPUT &请输入一个自然数：& TO ac=0DO WHILE .T. c=c+MOD(a,10) a=INT(a/10) IF a&=0
EXIT ENDIFENDDO?c
提问者评价
其他类似问题
按默认排序
其他1条回答
aa=23钉籂草既禺焕碴唯厂沥425Local bb,cc,numberlencc=[]bb=Allt(Str(aa))numberlen=Len(bb)For i=1 To numberlen cc=cc+[+]+Subs(bb,i,1)Endfcc=Subs(cc,2)? &cc.
vfp的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb中我编了一个程序，要求连续整数的和，不知哪里出错了？麻烦高手指点一下！_百度知道
vb中我编了一个程序，要求连续整数的和，不知哪里出错了？麻烦高手指点一下！
Dim b As IntegerFor j = 0 To 500a = 0For i = j To 500i = i + 1a = a + iIf a = 1250 Thenn = (-2 * j - 1 + Sqr((2 * (j + 1) - 1) ^ 2 + 4 * 2500)) &#47: Dim j As IntegerDim n As I 2b = j + nPrint j + 1;“~”程序将计算500以内两个数之间（包括开头和结尾骸辅囤盒塬谷后期的数)所有连续整数的和为1250的正整数,程序输出每组开头和结尾的正整数。Private Sub cmdCal_Click()Dim i As Integer
打印出来就是38~62..，这只是一组数..比如38+39+40+.+62和为1250..
提问者采纳
需要稍微修改一下.net的.Text = Text1，如果你用vb6, k A骸辅囤盒塬谷后期s Integer
Dim sum As Integer
For i = 1 To 499
For j = i To 500
sum = sum + j
If sum = 1250 Then
Text1。Text1的Multiline属性设置为 1250 then
Exit For ' - &quot，并把内容清空，后面的数没必要加了
Msgbox(&quot。
Private Sub Command1_Click()
Dim i As Integer代码是超过1250了, j As I & j & vbCrLf
Elseif sum &gt.Text & i & &quot，直接改成vb6的了。把刚贴的代码优化了一下!&计算完成
提问者评价
其他4条回答
?!连续整数的和都不知道你想表达什么意骸辅囤盒塬谷后期思. 最大不就是 499+500也不会是1250阿.!晕....
&i=i+1&会影响到循环，应该去掉。直接输出j，i，就可以了，不需要计算b、j+1for j=0 to 500a=0for i=j to 500a=a+iif a=1250 then print j&&~&&inext inext j
直接给你编一个过程，你自己调用吧!sub a()dim i,j,sum as integerfor i=1 to 500sum=0j=iwhile(sum&1250 and j&500)sum=sum+jj=j+1end whileif sum=1250&,&;jnext iend sub
Sub SumTo1250()For s = 1 To 500t = 0For j = s To 500t = t + jIf t = 1250 Then y = y & s & &-& & j & &,&NextNextMsgBox yEnd Sub
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁C语言编程：给一个不多于5位的正整数，要求1求它是几位数2逆序打印出各位数字
C语言编程：给一个不多于5位的正整数，要求1求它是几位数2逆序打印出各位数字
#include &stdio.h&void main(){ long a=0,b=0; int
t=0; scanf(&%ld&,&a); for(t=0;a&0;a/=10,t++) {
b=(b*10)+a%10; } printf(&这个数是%d位的,逆序数=%ld\n&,t,b);}
貌似有错误，大哥！
的感言：谢谢，是我自己搞错了，对不起啦！
其他回答 (1)
有什么错误？？说说？？
#include &stdio.h&void main(){long a=0,b=0;int t=0;scanf(&%ld&,&a);for(t=0;a&0;a/=10,t++){b=(b*10)+a%10;}printf(&这个数是%d位的,逆序数=%ld\n&,t,b);}
输入12345运行后：
位数和逆序打印都没问题啊··其它数我也试了··都没问题。。
等待您来回答
编程领域专家}