Question

pascal求定义一函数fz3,求1—n之间3的倍数之和.定义一函数fz5,求任意自然数n的各位数字之和.

Answer 1

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给最佳,不懂的追问啊!