第八届绍兴市少儿信息学竞赛复赛试题及答案

readln(h[i]);Р s:=s+h[i];Р end;Р if s<b thenР beginР writeln(0);Р exit;Р end;Р kp(1,n);Р x:=0;s:=0;Р while s<b doР beginР x:=x+1;Р s:=s+h[x];Р end;Р writeln(x);Р close(input);Р close(output);Рend.Рcheng.pas:РvarРx,y,a,b,i,len1,len2:longint;РbeginРassign(input,'cheng.in');Рassign(output,'cheng.out');Рreset(input);Рrewrite(output);Рreadln(x,y);Рa:=0;b:=0;Рwhile x>0 doР beginР a:=a+x mod 10;Р x:=x div 10;Р end;Рwhile y>0 doР beginР b:=b+y mod 10;Р y:=y div 10;Р end;Рwriteln(a*b);Рclose(input);Рclose(output);Рend.Рbee.pas:РvarР m,n,i,j,x:longint;Р a:array[1..100] of real;РbeginР assign(input,'bee.in');Р assign(output,'bee.out');Р reset(input);Р rewrite(output);Р readln(m,n);Р a[m+1]:=1; a[m+2]:=2;Р for i:= m+3 to n doР a[i]:=a[i-2]+a[i-1];Р write(a[n]:0:0);Р close(input);Р close(output);Рend.