作业帮 > 综合 > 作业

Free Pascal问题 任意输入一个四位数,输出的结果是其各个数位上的数字之和

来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/06/11 08:11:15
Free Pascal问题 任意输入一个四位数,输出的结果是其各个数位上的数字之和
用字符数组存储这N个数 再用ASCII码将字符类型的数字转换成整数数字
再加起来即可；
var
a:array[1..10000] of char;
i,s,n:longint;
begin
for i:=1 to 4 do
read(a[i]);
s:=0;
for i:=1 to 4 do
s:=s+（ord(a[i])-48）;
writeln(s);
end.
如果不会用字符数组和循环 可以用笨办法；
var
a,s,c:longint;
begin
readln(a);
s:=0;
c:=a mod 10;
a:=a div 10;
s:=s+c;
c:=a mod 10;
a:=a div 10;
s:=s+c;
c:=a mod 10;
a:=a div 10;
s:=s+c;
c:=a mod 10;
a:=a div 10;
s:=s+c;
writeln(s);
end.
Free Pascal问题 任意输入一个四位数,输出的结果是其各个数位上的数字之和 C语言问题：输入一个多位数,计算其各数位上的数字之和.例如,输入1234,输出为10 . 求：编写程序,输入一个正整数,统计该整数的位数并计算其各个数位上的数字之和. C语言程序设计：编写程序,输入一个正整数,统计该整数的位数并计算其各个数位上的数字之和. 用C语言编写：“输入一个正整数,统计该整数的位数并计算其各个数位上的数字之和.” C语言 对于一个任意的自然数X,位数不超过4,编程计算其各个数位上的数字之和S 一个四位数各个数位上数字都不相同,并且各个数位上的数字之和为14,能写出几个这样的数? 一个四位数,减它各个数位上数字之和,差是658（）,（）中应填的数字是几 有一个四位数,各数位上的数字之和为15,如果把这个数加上5,侧新的四位数各个数位上的数字之和为2.原来的这个四位数是多少 任意写一个四位数,且它的各个数位上的的数字都不相等,用这个四位数各个数位上的数字组成一个最大的数和最 有一个四位数的各个数位上的数字之和是24,它的个位上的数字是十位上的数字的2倍, 任意写一个四位数,且它的各个数位上的数不同,用这个四位数各个数位上的数字组成一个最大的数和一个最小的数,并用大数减去小数