turbo pascal 7.0 题目： 1，试求 1*3*5*7*……*N。（N小于12） 2，试求 1-2+3-4…

turbo pascal 7.0 题目： 1，试求 1*3*5*7*……*N。（N小于12） 2，试求 1-2+3-4……N。（N小于3000） 急
海口甲方 1年前 已收到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年前

2

双头会 幼苗

共回答了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年前

2

萧溪 春芽

共回答了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年前

2

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年前

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年前

0
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 20 q. 0.041 s. - webmaster@yulucn.com