小学复赛集训2
1．问题描述：某科技展教馆的团体入场费30人为50元，超过30人后，每增加1 人增加费用1元，为了使所有人平均后的每人费用不超过某个指定的费用m（1输出：zuishaorenshu：
31var i,j : longint; m,n : real;
begin write('m = readln(m);
i :=30; j :=50; n :=50/30;
while n > m do begin i:=i+1;j:=j+1; n :=j/i;
end;writeln(i); readln;
end.2．三位数345，3<4<5，称这个三位数为“迎春花”数，输出三位数中所有既是“迎春花”数又是质数的数，并统计个数，s=20)
var x,a,b,c,s,y,h:integer;
begin for x:=100 to 999 do
begin a:=x div 100;b:=x div 10 mod 10;c:=x mod 10;
s:=0;for y:=1 to x do
if x mod y=0 then s:=s+1;
if (s=2) and (a end; write('s=',h);
end.3．所有的正整数均可以表示为一个、两个或者多个连续的正整数之和，给定一个不超过30000的正整数，求出它可以用几种不同的方法表示成连续正整数之和。如给出9，则有三种方法：
9，4+5，2+3+4。（注：方法5+4与方法4+5视为是相同的）
用键盘输入一个正整数n（1≤n≤30000），输出与之相应的不同方法种数。
输入输出样例：输入：n=9↙ 输出：3
var s,n,i,j,c:integer;
begin write('n=')readln(n);
c:=0; for i:=1 to n do
begin s:=0;j:=i;
while s if s=n then c:=c+1;
end; writeln(c);
end.4．任意输入一个自然数x，输出它对应的汉语拼音。如输入x=54，则输出 wusi，若输入x=2789，则输出erqibajiu。
var x,n,i:longint; y,y1:string;
begin read(x); if x=0 then write('ling');
while x>0 do begin n:=x mod 10;
case n of
0:y:='ling'; 1:y:='yi'; 2:y:='er'; 3:y:='san'; 4:y:='si';
5:y:='wu'; 6:y:='liu'; 7:y:='qi'; 8:y:='ba'; 9:y:='jiu';
end;y1:=y+y1; x:=x div 10;
end; write(y1);
end.5．小雯去书店购书，她选中了六本书，**分别为a、b、c、d、e、f，但她只带了50元钱，只能购买其中的几本书，问怎样购买法使总钱数最接近50元（5000分），即剩余的钱最少。a、b、c、d、e、f用分表示，均由键盘输人，输出剩余的钱和购买的书。
输入输出样例：输入：
a,b,c,d,e,f= 340 1120 1890 1040 990 880↙
输出：70b c d f
var a,b,c,d,e,f,ai,bi,ci,di,ei,a1,b1,c1,d1,e1,f1,fi,t,y,ee:integer;
begin write('a,b,c,d,e,f=')readln(a,b,c,d,e,f);
ee:=5000; for ai:=0 to 1 do
for bi:=0 to 1 do
for ci:=0 to 1 do
for di:=0 to 1 do
for ei:=0 to 1 do
for fi:=0 to 1 do
begin t:=ai*a+bi*b+ci*c+di*d+ei*e+fi*f; y:=5000-t;
if (y=0) then begin ee:=y;
a1:=ai; b1:=bi; c1:=ci; d1:=di; e1:=ei; f1:=fi;
end;end;
writeln(ee); if a1=1 then write('a ')
if b1=1 then write('b ')
if c1=1 then write('c ')
if d1=1 then write('d ')
if e1=1 then write('e ')
if f1=1 then write('f ')
writeln;
end.6．一个任意的四位正整数。将数字重新组合成一个最大的数和最小的数相减，重复这个过程，最多七步，必得6174。即：7641-1467=6174。将永远出不来。
输入一个四位数数字（全相同的除外），均能得到6174。输出掉进黑洞的步数。
var a,b,c,d,n,t,x,y,z:integer;
begin write('n=')readln(n); t:=0;
repeat
if n=6174 then break;
a:=n div 1000;b:=n div 100 mod 10;c:=n div 10 mod 10;
d:=n mod 10; if a if a if a if b if b if c y:=a*1000+b*100+c*10+d; z:
=d*1000+c*100+b*10+a; n:=y-z;
if n=0 then break;
t:=t+1;
until n=6174;
writeln('t=',t); readln;
end.7．有一种数字魔术游戏，魔术师要观众想好一个三位数abc（a为百位、b为十位、c为个位），记在心理。然后魔术师要观众另外记下5个三位数acb、bac、bca、cab、cba，并把这5个数加起来，求得和m，告诉魔术师这个m，魔术师就能根据m告诉观众想的三位数是多少。
现在要求编程解决这个问题，对于输入的一个m（122≤m≤4995），输出这个三位数abc，假如给定的m超出范围或不可能的，则输出“error”。
输入输出样例： 输入：m = 2004↙ 输出：660输入：m = 2005↙
输出：error
var m,a,b,c,d:longint;
begin write('m=')readln(m);
if (m<122) and (m>4995) then d:=0 else begin
d:=0; for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if (a*122+b*212+c*221=m) then d:=a*100+b*10+c;
end; if d>0 then writeln(d) else writeln('error');
end.8．a,b,c,d,e五名运动员有可能参加羽毛球比赛，根据下列条件判断哪些人参加了比赛。
(1)a参加时b也参加；
(2)b和c只有一人参加；
(3)c和d或者都参加，或者都不参加；
(4)d和e或者都参加，或者他们中一人参加；
(5)如果e参加，那么a和d都参加。
输入输出样例：
输出：can jia bi sai ren wei：
var a,b,c,d,e:integer;
begin for a:=0 to 1 do
for b:=0 to 1 do
for c:=0 to 1 do
for d:=0 to 1 do
for e:=0 to 1 do
if ((a+b=2)or(a=0))and(b+c=1)and(c+d<>1)and(d+e<>0)
and((e+a+d=3)or(e=0))
then writeln('a=',a,' b=',b,' c=',c,' d=',d,' e=',e);
readln;
end.9．某食品店有a，b，c，d，e和f六种食品，单价分别为：3.
1，1.7，2，5.3，0.
9和7.2元。现要求从这六种食品中选若干食品，使得单价相加所得的和同10元最接近。
输出食品**。
var a,b,c,d,e,f,y,i:integer; x,max:real; t:longint;
noip入门测试2 附答案
将1，2，9共9个数排成下列形态的三角形。ab c def g h i 其中 a i分别表示1，2，9中的一个数字，并要求同时满足下列条件 1 a 2 b 3 a b d f f g h i i e c a p 程序要求 根据输入的边长之和p，输出所有满足上述条件的三角形的个数。var a,b,c,...
生理2附答案
2014级成教班生理学作业题 一 专业班级姓名王刚学号成绩 一 名词解释。1.阈值刺激引起应激组织反应的最低值。2.内环境胞在体内直接所处的环境即细胞外液，称之为内环境。3.血型血型通常是指红细胞膜上特异性抗原的类型。4.粘液 碳酸氢盐屏障由胃上皮表面粘液细胞分泌的含高浓度hco3 的不可溶性粘液，...
试卷附答案 2
沭如中学高三物理命题比赛试题。一 单项选择题 本大题共5小题，每题小3分，共15分。1从同一地点同时开始沿同一直线运动的两个物体i ii的v t 图象如图所示。在0 t2时间内，下列说法中正确的是 a i物体所受的合外力不断增大，ii物体所受的合外力不断减小。b 在第一次相遇之前，t1时刻两物体相距...