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

来源：学生作业帮助网编辑：作业帮时间：2024/05/04 14:13:29

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

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

pascal求定义一函数fz3,求1—n之间3的倍数之和.定义一函数fz5,求任意自然数n的各位数字之和. pascal语言编程问题（free pascal求1—N中的素数的个数.(1 pascal:定义一个函数,求正整数中奇数阶乘的连续和,最大奇数为n(数据保证n为奇数)输入样例5 （样例解释为1!+3!+5!）输出样例127 pascal编程求1+3+5+...+n一定要是自己是过的,要用pascal! 1 开始的连续自然数相乘叫做阶乘.编写一个求n!的函数,调用此函数求:D＝用PASCAL编程。 pascal问题1.利用自定义函数求任意两个整数N～M（0 给出一个整数n,其中n小于等于1000.请求出1~n中所有的素数的个数求一pascal程序求一pascal程序,给出一个整数n,其中n小于等于10000,请统计n的因数的个数. 用递归的方法求1+2+3+……+(n-1)+n 用PASCAL pascal问题,求程序：1、文本文件t.in中第一行的一个正整数N（N 给出一个整数n,如果n是偶数,n变为n div 2,否则n变为n*3+1,问经过多少步n变为1,求一pascal程序.如输入5，就输出5（步数） pascal 输入n(1 pascal 输入n(1 求Free Pascal程序问题如下：第一行输入一个正整数n（1 用PASCAL语言编写一个求1+2+3+...+N的程序 pascal用高精度方法求s=1+2+3+……+n的精确值 pascal用高精度方法求s=1+2+3+……+n的精确值用Pascal语言求m^n的精确值,0