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

来源：学生作业帮助网 编辑：作业帮 时间：2024/04/29 06:17:06

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

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问题 任意输入一个四位数,输出的结果是其各个数位上的数字之和 free pascal问题问题共有三题,我是新手,1.输入一个自然数n（n 求Free Pascal程序问题如下：第一行输入一个正整数n（1 如果用free pascal篇写程式 应该怎样写;;请各位大侠指点一下任意输入一个正整数,(0 FREE PASCAL,输入两个数,求最小公倍数 Free Pascal问题,用函数和过程解.1.找出由键盘任意输入三个整数中的最大数的过程.2.输入三个不同的整数,按由小到大排列,用过程编程.3.用不带参数的过程和带参数的过程分别编写一个程序,实 Free Pascal解答A B C D E F 试题 A:【入门】求任意三位数各个数位上数字的和【试题描述】 对于一个任意的三位自然数X,编程计算其各个数位上的数字之和S.【输入描述】 输入一行,只有一个整数x 求平均数 用free pascal输入n个数,求出这些数的平均数.输入：只有一行共有n个数,数与数之间用一个空格隔开 (1 free pascal算式处理：输入一个算式,输出解,有括号.例：输入：1/((7+3)*6)*60+1输出：1/((7+3)*6)*30+1=2 pascal问题 一个递推数列,输入n,输出f[n]； n pascal程序设计 输入一个整数n,n Pascal二分法：输入一个正整数n（1 Pascal求任意一个三位数数个位数字之和 输入：123； 输出：1+2+3=123 pascal语言编程问题（free pascal求1—N中的素数的个数.(1 Free pascal 求连续数字的平方和Description 编程求1平方+2平方+...+n平方 Input 输入一行,只有一个整数n(1 输入一个正整数N,把它分解成质因子相乘的形式.如：36=1×2×2×3×3；用 FREE pascal. 输入一个正整数N,把它分解成质因子相乘的形式.如：36=1×2×2×3×3；用 FREE pascal Nocomachns定理.用free pascal Description Nocomachns定理.任何一个n的三次方一定可以表示成n个连续的奇数和.输入:n(n