pascal求定义一函数fz3,求1—n之间3的倍数之和.定义一函数fz5,求任意自然数n的各位数字之和.
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 16:19:12
pascal求定义一函数fz3,求1—n之间3的倍数之和.定义一函数fz5,求任意自然数n的各位数字之和.
function fz3(n:longint):longint;
var P:longint;
begin
p:=n div 3; //p表示从1-n有多少被3整除的数
fz3:=(3+p*3)*p div 2; //数列求和,即(首项+末项)*项数/2
end;
function fz5(n:longint):longint;
var i:longint; s:string;
begin
fz5:=0; str(n,s); //把n转化成字符串,然后求每位数相加
for i:=1 to length(s) do
fz5:=fz5+ord(s[i])-48;
end;
求Lz给最佳,不懂的追问啊!
var P:longint;
begin
p:=n div 3; //p表示从1-n有多少被3整除的数
fz3:=(3+p*3)*p div 2; //数列求和,即(首项+末项)*项数/2
end;
function fz5(n:longint):longint;
var i:longint; s:string;
begin
fz5:=0; str(n,s); //把n转化成字符串,然后求每位数相加
for i:=1 to length(s) do
fz5:=fz5+ord(s[i])-48;
end;
求Lz给最佳,不懂的追问啊!
pascal求定义一函数fz3,求1—n之间3的倍数之和.定义一函数fz5,求任意自然数n的各位数字之和.
free pascal定义一个函数,输出2到n之间的全部完全数(一行一个数) 完全数:因子之和等于它本身的自然数,
编写一个函数 int sum(int n),求任意一个正整数的各位数字之和;再编写一个程序调用sum函数
自然数n的十位数字是4,其个位数字是2,又知自然数n的各位数字之和是42,且n是42的倍数.试求满足上述条件的最小自然数
C语言:给定一个整数n,求n的各位数字之和,比如123,其各位数字之和为1+2+3=6,结果为6.
如何编写程序,求s=1!+2!+3!+4!+5!+6!...之和.要求定义递归函数fact(n)求n!
急求 1、设计一个判断两个整数大小的VBA子过程. 2、设计一个计算从n~m之间所有自然数之和的VBA函数.
pascal编程求1-10000之间所有质因数的各位数字之和和等于该数各位数字只和的数字
C语言编程.给定一个自然数n,求其各位数字之和,重复上一过程,一直得到1~9之间的数.
pascal程序 定义一函数digit(n,k) 使得他回送整数n的从右边开始数第k个数字的值
编程计算分段函数1.求100-500之间各位数字之和等于5的所有整数.X2+1 X
设函数f(x)定义如下表,数列{Xn}(满足X0=5,且对于任意的自然数n,均有Xn+1=f(Xn),求x2011