pascal:定义一个函数,求正整数中奇数阶乘的连续和,最大奇数为n(数据保证n为奇数)
来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/06/16 18:54:44
pascal:定义一个函数,求正整数中奇数阶乘的连续和,最大奇数为n(数据保证n为奇数)
输入样例
5 (样例解释为1!+3!+5!)
输出样例
127
输入样例
5 (样例解释为1!+3!+5!)
输出样例
127
![pascal:定义一个函数,求正整数中奇数阶乘的连续和,最大奇数为n(数据保证n为奇数)](/uploads/image/z/8339716-28-6.jpg?t=pascal%3A%E5%AE%9A%E4%B9%89%E4%B8%80%E4%B8%AA%E5%87%BD%E6%95%B0%2C%E6%B1%82%E6%AD%A3%E6%95%B4%E6%95%B0%E4%B8%AD%E5%A5%87%E6%95%B0%E9%98%B6%E4%B9%98%E7%9A%84%E8%BF%9E%E7%BB%AD%E5%92%8C%2C%E6%9C%80%E5%A4%A7%E5%A5%87%E6%95%B0%E4%B8%BAn%28%E6%95%B0%E6%8D%AE%E4%BF%9D%E8%AF%81n%E4%B8%BA%E5%A5%87%E6%95%B0%29)
程序已经编写完成,请采纳:
var n:integer;
function facsum(n:longint):longint;
var s,t,i:longint;
begin
s:=0; i:=1; t:=1;
while i
再问: 能加上注解么?谢谢
再答: unction facsum(n:longint):longint;
var s,t,i:longint;
begin
s:=0; i:=1; t:=1; {s累加和,t=1,3,5的阶乘}
while i
var n:integer;
function facsum(n:longint):longint;
var s,t,i:longint;
begin
s:=0; i:=1; t:=1;
while i
再问: 能加上注解么?谢谢
再答: unction facsum(n:longint):longint;
var s,t,i:longint;
begin
s:=0; i:=1; t:=1; {s累加和,t=1,3,5的阶乘}
while i
pascal:定义一个函数,求正整数中奇数阶乘的连续和,最大奇数为n(数据保证n为奇数)
三个连续奇数中,最小的奇数为2n+3(n为整数),则最大的一个奇数为
3个连续奇数的和是6n+9,求其中最大的一个奇数
根据Nocomachns定理,任何一个正整数n的立方一定可以表示为n连续的奇数的和.
三个连续奇数,若最小的一个为2n+1,则这三个连续奇数的和是
3个连续奇数中,n为最小的奇数,则这个数的和为多少
定义一个函数f(n),当n为奇数时,f(n)=n;当n为偶数时,若n=r个2×p(r为正整数,p为正奇数),则f(n)=
三个连续奇数,中间一个为2n+1,则另两个奇数的乘积是
三个连续的奇数,中间一个是n,用代数式表示这三个奇数的和为______.
三个连续奇数的平均数为a-2,这三个奇数中最大的一个是多少
对于任意正整数,定义“n的双阶乘如下:n为偶数时,n!=n(n-2)(n-4).6*4*2 n为奇数时:n!=
三个连续的奇数的和为69,则这三个奇数中最大的数是几?