pascal算一个数各个位数的平方和编写程序实现功能,对于输入的整数,求该整数的各位数字的平方和.输入部分：多组数据,每组数据有一个输入行,输入一个整数（0～999999间的整数）输出部分：

来源：学生作业帮助网编辑：作业帮时间：2024/11/15 11:09:53

pascal算一个数各个位数的平方和编写程序实现功能,对于输入的整数,求该整数的各位数字的平方和.输入部分：多组数据,每组数据有一个输入行,输入一个整数（0～999999间的整数）输出部分：
pascal算一个数各个位数的平方和
编写程序实现功能,对于输入的整数,求该整数的各位数字的平方和.
输入部分：
多组数据,每组数据有一个输入行,输入一个整数（0～999999间的整数）
输出部分：
对于每组输入,输出各位数字的平方和.
输入样例：
123
100
输出样例：
14
1
（pascal语言,不要别的,请严格按照格式）
在线等!快!

pascal算一个数各个位数的平方和编写程序实现功能,对于输入的整数,求该整数的各位数字的平方和.输入部分：多组数据,每组数据有一个输入行,输入一个整数（0～999999间的整数）输出部分：
var
x,s:longint;
i,j:integer;
a:array[1..10] of longint;
begin
while not eof do
begin
readln(x);
i:=0;
repeat
inc(i);
a[i]:=x mod 10;
x:=x div 10;
until x=0;
s:=0;
for j:=1 to i do
s:=s+sqr(a[j]);
writeln(s);
end;
end.

pascal算一个数各个位数的平方和编写程序实现功能,对于输入的整数,求该整数的各位数字的平方和.输入部分：多组数据,每组数据有一个输入行,输入一个整数（0～999999间的整数）输出部分： Free pascal怎么求一个数的位数输入随意一个数,输出它的位数.还有,这个题请不要用字符串做,只能用整数的变量编写程序请输入一个数,判断这个数的位数用PASCAL编程序1.编写一函数,求出实数的小数部分位数.例如,实数3.14有2位小数；68.6634有4位小数2.编写一函数,求出N!的末尾含有多少个0 一道PASCAL题读入10个数,计算它们的和、积、平方和及和的平方用pascal编写程序输入十个整数,统计大于0的数的个数.用pascal编写程序输入十个整数,统计大于0的数的个数. 一个数各个位上的数字相加等于6,问2位数有几个,3位数有几个,4位数有几个,第2013位数是多少? VisualFoxpro如何编程序计算一个数各个位数的乘积? C语言.程序编写.求四位数各位数字的平方和为100的最大的四位数一个数的倒数平方和是什么? 用pascal求一个数,这个数是11的倍数,百位数加十位数等于千位数,并且百位数加十位数是完全平方数. Free Pascal问题任意输入一个四位数,输出的结果是其各个数位上的数字之和一道PASCAL题读入10个数,计算它们的和、积、平方和及和的平方我急用 C语言怎么编写根号下（两个数的平方和）的程序三个数的平方和, pascal 输入30个正整数,计算它们的和,平方和 free pascal 程序:打印由1,2,3,4四个数字组成的所有四位数,并统计个数. 一个数的平方和立方相等,则这个数是多少