noip初赛阅读程序试题 谁帮我做一下 好的话+分13.program chu7_2;var i,j,f:integer;a:array [1..8] of integer;beginfor i:=1 to 8 dobeginf:=i mod 2;if f=0 then a[i]:=0 else a[i]:=1;for j:=1 to i doif f=0 then a[i]:=a[i]+j else a[i]:=a[i
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/20 19:01:44
noip初赛阅读程序试题 谁帮我做一下 好的话+分
13.program chu7_2;
var i,j,f:integer;
a:array [1..8] of integer;
begin
for i:=1 to 8 do
begin
f:=i mod 2;
if f=0 then a[i]:=0
else a[i]:=1;
for j:=1 to i do
if f=0 then a[i]:=a[i]+j
else a[i]:=a[i]*j
end;
for i:=1 to 8 do write(a[i]:5);
end.
14.program chu7_3;
var p,q,s,t:integer;
begin
readln(p);
for q:=p+1 to 2*p do
begin
t:=0; s:=(p*q)mod(q-p);
if s=0 then begin t:=p+q+(p*q)div(q-p); write(t:4); end;
end;
readln
end.
输入:12
输出:
(13) a[1]=1;a[2]=3;a[3]=6;a[4]=10;a[5]=120;a[6]=21;a[7]=5040;a[8]=36
(14) 181 110 87 76 66 62 61 60
noip初赛阅读程序试题 谁帮我做一下 好的话+分13.program chu7_2;var i,j,f:integer;a:array [1..8] of integer;beginfor i:=1 to 8 dobeginf:=i mod 2;if f=0 then a[i]:=0 else a[i]:=1;for j:=1 to i doif f=0 then a[i]:=a[i]+j else a[i]:=a[i
NOIP 2009 普及组初赛 阅读程序题复制党走远
2006年noip初赛试题
求NOIP初赛的练习题求求大家帮我找一找NOIP初赛的练习题~还有一些的相关知识~
noip 阅读程序 如何做 最好结合题目给我解析
noip竞赛阅读程序的方法我是pascal的新手,目前初赛的内容就剩下阅读程序和完善两个内容了,马上要比赛了,说得详细一点,我4个只会做2个,老师又不辅导,
noip初赛成绩
NOIP初赛准备问题首先,不要只跟我说做历年的题目.然后具体情况:我前一段时间一直准备复赛.还有一个多月就考了.初赛没什么头绪.具体是以下2个问题1.我完善程序题目做得很不好,(自己编
阅读理解.帮我做一下.
noip初赛模拟题quick
noip初赛试题求教①已知x =(0.1011010)2 ,则[ x / 2 ]补 =( )2 .(NOIP8)A)0.1011101 B)11110110 C)0.0101101 D)0.100110最好能写清楚做题过程,
帮我做一下这个散文阅读,写给我
谁有历年NOIP竞赛的试题?pascal语言,
谁帮我做一下
谁帮我做一下.
有 noip 初赛完善程序题目加解析吗?最好 易懂 难度 和往年 相似!一定要 c 语言的!!
noip2007普及组初赛谁可以给一下NOIP2007普及组初赛试题晕 你的QQ还要验证哦....
noip程序阅读理解题解题方法有哪些?还有程序完善题的!