pascal语言:输入一个正整数,计算它各数位之和

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/16 06:07:03

pascal语言:输入一个正整数,计算它各数位之和
(数字数位不限,类型为longint)

这个其实可以用多种方法实现
方法1：分离数字法
var
x,l,s:longint;
begin
read(x);
while x>0 do
begin
l:=x mod 10;
inc (s,l);
x:=x div 10;//当前位完成计数后,去掉
end;
write(s);
end.
方法2：转字符串法
var
s:string;
x,ans:longint;
begin
read(x);
str(x,s);
for i:=1 to length(s) do
inc (ans ,ord(s[i])-48 ); //即进行字符与数字之间的转换
write(ans);
end.
个人认为第二种方法较好!
再问：帮我改一下这个程序：
var
a,n,s,d:longint;
begin
read(a);
s:=0;
while n>0 do
begin
d:=a mod 10;
s:=s+d;
n:=a div 10;
s:=s+n;
end;
writeln(s);
end.
就是这个题目。
再答： var
a,n,s,d:longint;
begin
read(a);
s:=0;
while a>0 do// 改为a
begin
d:=a mod 10;
s:=s+d;
a:=a div 10;
//n:=a div 10;
//s:=s+n; 这2个语句不用加
//说明一下，变量n其实在这里并不需要，只要实现数字的自身分离就好了
end;
writeln(s);
end.
另外抱歉一下，昨天我的第二个程序没有定义循环变量i 。谢谢采纳！

pascal语言:输入一个正整数,计算它各数位之和用C语言编写：“输入一个正整数,统计该整数的位数并计算其各个数位上的数字之和.” C语言问题：输入一个多位数,计算其各数位上的数字之和.例如,输入1234,输出为10 . Pascal 语言输入一个正整数,求出它的所有素因子,每两个数之间用一个空格隔开求：编写程序,输入一个正整数,统计该整数的位数并计算其各个数位上的数字之和. 用C语言编程,输入一个正整数,计算并显示该数的各位数字之和. C语言：输入一个正整数, 计算并显示出该数的各位数字之和. cc语言作业:输入一个小于10000的正整数,输出该整数各个数位上的数各是多少 Free Pascal问题任意输入一个四位数,输出的结果是其各个数位上的数字之和 C语言程序设计：编写程序,输入一个正整数,统计该整数的位数并计算其各个数位上的数字之和. pascal语言:输入一个正整数n,输出n以内所以素数输入一个自然数,求这个自然数的所有约数之和,用PASCAL语言