turb pascal 11教学版.ppt

2011年长沙市小学生计算机奥林匹克竞赛决赛试题;二、报数游戏 小明和小红一起玩报数游戏：小明按1-A1循环报数，小红按1-A2循环报数。两人同时开始，并以同样的速度报数，当两人都报了N个数时，统计出两人同时报相同数的次数，先算对者获胜。请你算出正确答案，当他俩的裁判。;2008年长沙市小学生计算机奥林匹克竞赛决赛试题 ;2007年长沙市计算机奥林匹克竞赛决赛试题;（1）摆正方形（文件名e1） 用长a厘米，宽b厘米的长方形硬纸片摆成一个正方形（中间无空隙），至少要用几个长方形硬纸片？输入a,b,输出长方形的个数.;练习1;（2）求数列的和 （文件名：e2） 已知数列5、7、11、17、25、…，输入正整数n，编程输出该数列的第n项和这n项的和。; 有一列数1、3、5、7、9、1、3、5、7、9、1、3、5、7、9、……，输入正整数n，求第n个数及这n个数之和是多少?; 输入m、n，求数列1，6，7，12，13，18，19，...的第m项被n除余几？;（3）N位小数（文件名：e3） 输入一个正整数N（1≤N≤200），求1／2013的值。要求计算结果精确到小数点后N位，求这N位小数中有多少个8？ ;var a,b,n,i,t:integer; begin readln(a,b,n); a:=a mod b;t:=0; for i:=1 to n do begin a:=a*10; if a div b mod 2=1 then t:=t+1; a:=a mod b; end; writeln(t); readln; end. ;var a,b,c,n,i,t:integer; begin readln(a,b,n); t:=0;c:=a div b; while c0 do begin if c mod 10 mod 2=1 then t:=t+1; c:=c div 10; end; a:=a mod b; for i:=1 to n do begin a:=a*10; if a div b mod 2=1 then t:=t+1; a:=a mod b; end; writeln(t); readln; end. ;（4）斐波那契公约（文件名：e4） 对于Fibonacci数列：1,1,2,3,5,8,13......大家应该很熟悉吧~~~但是现在han有一个很“简单”问题,：第n项和第m项的最大公约数是多少？;;（5）阶乘非0位之和 （文件名：e5） 输入二个正整数n(n1000)，x(x6)，输出n的阶乘非0数字的最右x位的各位数字之和。;（6）阶乘非0位之和（文件名：e6） 输入二个正整数n(n1000)，x(x6)，输出n的阶乘非0数字的最右x位的各位数字之和。 如:输入: 18 5 输出:22 ;（6）分数相加（文件名：e6） 有n（1=n=4）个分数，求这n个分数的和。 【输入】：第一行,n表示分数的个数,后面有n行给出n个分数，每个分数给出形式为x y (0=x=300,1=y=300，x为分子，y为分母) 【输出】：一行,分数的和（其结果必须为最简分数；如果分母为1，输出为整数；不考虑分子与分母的大小问题）;附加：（7）第n个数 （文件名：e7） 有一整数如下: 113135135713579…，输入正整数n，求从左往右数第n位是几?;练习5： 有一整数如下: 112123123412345… 求从左往右数第n位是几?;Var n,I,j,s,k,t:integer; Begin write(‘n=‘);readln(n); i:=0; t:=0; repeat i:=i+1; j:=i;s:=i; repeat j:=j+1; s:=s+j; until s=n; if s=n then begin write(n,’=‘,i); for k:=i+1 to j do write(‘+’,k); writeln; t:=t+1; end; until in div 2; if t=0 then writeln(‘no’); readln; End. ;【问题描述】 康熙皇