资源描述：
《turbo pascal 11教学版》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、2011年长沙市小学生计算机奥林匹克竞赛决赛试题一、爱心捐赠：小明和小朋友们共同献爱心捐赠的图书共n类，每类m本。现在要将这些书全部分给各个希望小学，规定：分给每个希望小学的书数量相同，种类k尽量多，并且每类书数量=k。小明请你算算共能捐赠多少个希望小学？varm,n,k:longint;beginreadln(n,m);k:=n+1;repeatk:=k-1;until(nmodk=0)and(mmodk=0);writeln('xuexiao=',n*mdiv(k*k));readln;end.【输入】nm（n，m<=10000）【输出】xuex
2、iao=学校数【样例】输入：1254输出：xuexiao=18二、报数游戏小明和小红一起玩报数游戏：小明按1-A1循环报数，小红按1-A2循环报数。两人同时开始，并以同样的速度报数，当两人都报了N个数时，统计出两人同时报相同数的次数，先算对者获胜。请你算出正确答案，当他俩的裁判。varn,a,b,a1,a2,t:integer;beginreadln(n);readln(a1,a2);t:=0;a:=0;b:=0;repeatn:=n-1;a:=(a+1)moda1;ifa=0thena:=a1;b:=(b+1)moda2;ifb=0thenb:=a
3、2;ifa=bthent:=t+1;untiln=0;writeln(t);readln;end.2009年长沙市小学生计算机奥林匹克竞赛决赛试题输入：N（N<=100）A1A2（A1、A2取值范围：2..10）输出：一个整数例如：输入：1023输出：4N-1到0正好是N个2008年长沙市小学生计算机奥林匹克竞赛决赛试题三、整数处理电脑老师让小慧编程做一道题：输入一个正整数A（A≤100000000），如果Ａ的个位数字是5，则统计Ａ能被5整除多少次？否则，统计A当中含有多少个“0”？你能做吗？vara,t:longint;beginreadln(a)
4、;t:=0;ifamod10=5thenwhileamod5=0dobegina:=adiv5;t:=t+1;endelsewhilea>0dobeginifamod10=0thent:=t+1;a:=adiv10;end;writeln(t);readln;end.例如：输入：125输入：305160输出：3输出：22007年长沙市计算机奥林匹克竞赛决赛试题四、判奇偶求和输入一个正整数n,如果n是奇数，则求1～n之间所有的偶数之和；如果n是偶数，则求n所有的约数之和。输入：n（标准整型）输出：和值（测试数据会保证这个值在标准整型范围）varn,i,
5、t,s:longint;beginreadln(n);t:=0;s:=0;fori:=1tondobeginifimod2=0thens:=s+i;ifnmodi=0thent:=t+i;end;ifnmod2=1thenwriteln(s)elsewriteln(t);readln;end.样例1：输入：11输出：30样例2：输入：12输出：28（1）摆正方形（文件名e1）用长a厘米，宽b厘米的长方形硬纸片摆成一个正方形（中间无空隙），至少要用几个长方形硬纸片？输入a,b,输出长方形的个数.Vara,b,c:longint;beginReadln(
6、a,b);C:=a-1;Repeatc:=c+1;Until(cmoda=0)and(cmodb=0);Writeln((c*c)div(a*b));readln;End.第十一课习题分析巩固存在问题：（1）没用longint（2）有人用枚举例:输入:64输出:6练习1Readln(a,b);C:=a+1;Repeatc:=c-1;Until(amodc=0)and(bmodc=0);Writeln((a*b)div(c*c));输入:6040输出：6把一张长a厘米，宽b厘米的长方形纸板剪成边长是整数厘米数的小正方形，且无剩余，最少可以剪成多少块注意
7、括号（2）求数列的和（文件名：e2）已知数列5、7、11、17、25、…，输入正整数n，编程输出该数列的第n项和这n项的和。vara,b,n,i,s:longint;beginreadln(n);a:=5;s:=a;b:=0;fori:=2tondobeginb:=b+2;a:=a+b;s:=s+a;end;writeln(a);writeln(s);readln;end.存在问题：（1）1通不过（2）输入输出不符（3）输出只有一项例:输入:4输出:1740有一列数1、3、5、7、9、1、3、5、7、9、1、3、5、7、9、……，输入正整数n，求第n
8、个数及这n个数之和是多少?练习2varn,a,s,i:longint;beginreadln(n);a:=-
