turbo pascal 7.0 题目: 1,试求 1*3*5*7*……*N。(N小于12) 2,试求 1-2+3-4…

海口甲方2022-10-04 11:39:545条回答

turbo pascal 7.0 题目: 1,试求 1*3*5*7*……*N。(N小于12) 2,试求 1-2+3-4……N。(N小于3000) 急

已提交,审核后显示!提交回复

共5条回复
我是mm 共回答了16个问题 | 采纳率87.5%
1:var
n,i,s:longint;
begin
readln(n)
s:=1;
for i:=1 to n do
if i mod 2=1 then s:=s*i;
writeln(s);
end.
2:var
n,i,s:longint;
1年前
双头会 共回答了14个问题 | 采纳率78.6%
上面那个有点复杂哦,如果数据太大估计时间和空间都会暴。
我这个是用递归写的
一:
var n:longint;
function fac(n:longint):longint;
begin
if n=1 then fac:=1
else fac:=n*fac(n-2);
end;
1年前
萧溪 共回答了17个问题 | 采纳率82.4%
1:因为连乘的数都是奇数,奇数可以用i mod 2=1表示。
program p1;
var
n,s,i:integer;
begin
read(n);
s:=1;
for i:=1 to n do
if i mod 2=1 then s:=s*i;
write(s);
end.
2...
1年前
hushuo369 共回答了20个问题 | 采纳率85%
1:var
n,i,s:longint;
begin
readln(n)
s:=1;
for i:=1 to n do
if i mod 2=1 then s:=s*i;
writeln(s);
end.
2:var
n,i,s:longint;
1年前
zhoubo76 共回答了11个问题 | 采纳率81.8%
1.program zhjh;
var
i,n,s:longint;
begin
readln(n);
s:=1;
for i:=3 to n do
if odd(i) then s:=s*i;
writeln(s);
end.
2.program zhjh;
var
i,s,n:lon...
1年前

相关推荐

求1道turbo pascal题目的解法
求1道turbo pascal题目的解法
用自然数300,205,167分别除以某整数A,所得的余数均相同.求出整数A以及相除的余数
请用turbo pascal格式
要把晶粒1年前1
caoacao 共回答了21个问题 | 采纳率90.5%
var i,num1,num2,num3:integer;
begin
for i:=1 to 167 do
begin
num1:=300 mod i;
num2:=205 mod i;
num3:=167 mod i;
if (num1=num2)and(num2=num3) then
writeln(i,' ',num1);
end;
end.
turbo pascal的一道题:找出100到999之间的整数中所有等于它每位数字立方和的数
maomaofhxy1年前1
wuyixun 共回答了19个问题 | 采纳率94.7%
var a,b,c:integer;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a*a*a+b*b*b+c*c*c=100*a+10*b+c then writeln(a,b,c);
end.
{结果:
153
370
371
407}
TURBO PASCAL中,实数型如何以小数形式表达方式?
TURBO PASCAL中,实数型如何以小数形式表达方式?
REAL运行后都是科学表达法,如何用一般表示?如:11.475.
chengxunran1年前1
旅无痕 共回答了7个问题 | 采纳率57.1%
输出的时候加上:0:n
如输出小数r
writeln(r:0:3)
表示输出r,并保留三位小数
如何判断一个数是否是约数?本人做到一道题,比如:12 中间有几个约数?(最好用 turbo pascal)
逸缘网1年前2
-丁丁猫- 共回答了14个问题 | 采纳率92.9%
约数又叫因数.整数a能被整数b整除,a叫做b的倍数,b就叫做a的约数.(在自然数的范围内) 6的约数有:1、2、3、6 10的约数有:1、2、5、10 15的约数有:1、3、5、15 注意:一个数的约数包括1 及其本身.整数a除以整数b(b≠0)除得的商正好是整数而没有余数,我们就说a能被b整除,或b能整除a.a叫b的倍数,b叫a的约数或因数.约数和倍数相互依存,不能单独说某个数是约数或倍数.约数:如果一个整数能被两个整数整除,那么这两个数就是这个数的约数.约数是有限的,一般用最大约数.直白地说:约数就是能将其整除的除数.例如:能把24整除的有:1、2、3、4、6、8、12、24 所以24的约数有:1、2、3、4、6、8、12、24 约数是可以整除这个数的数,一般都小于或等于它(包括它自身).