[turbopascal11教学版.pptVIP

* * * * * * * * * * * * * * * * 2011年长沙市小学生计算机奥林匹克竞赛决赛试题 一、爱心捐赠： 小明和小朋友们共同献爱心捐赠的图书共n类，每类m本。现在要将这些书全部分给各个希望小学，规定：分给每个希望小学的书数量相同，种类k尽量多，并且每类书数量=k。 小明请你算算共能捐赠多少个希望小学？ var m,n,k:longint; begin readln(n,m); k:=n+1; repeat k:=k-1; until (n mod k=0)and(m mod k=0); writeln(xuexiao=,n*m div (k*k)); readln; end. 【输入】n m（n，m=10000） 【输出】xuexiao=学校数 【样例】输入：12 54 输出：xuexiao=18 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 二、报数游戏 小明和小红一起玩报数游戏：小明按1-A1循环报数，小红按1-A2循环报数。两人同时开始，并以同样的速度报数，当两人都报了N个数时，统计出两人同时报相同数的次数，先算对者获胜。请你算出正确答案，当他俩的裁判。 var n,a,b,a1,a2,t:integer; begin readln(n); readln(a1,a2); t:=0; a:=0; b:=0; repeat n:=n-1; a:=(a+1) mod a1; if a=0 then a:=a1; b:=(b+1) mod a2; if b=0 then b:=a2; if a=b then t:=t+1; until n=0; writeln(t); readln; end. 2009年长沙市小学生计算机奥林匹克竞赛决赛试题 输入：N（N=100） A1 A2 （A1、A2取值范围：2..10） 输出：一个整数 例如：输入：10 2 3 输出：4 N-1到0正好是N个 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 2008年长沙市小学生计算机奥林匹克竞赛决赛试题 三、整数处理 电脑老师让小慧编程做一道题：输入一个正整数A（A≤100000000），如果Ａ的个位数字是5，则统计Ａ能被5整除多少次？否则，统计A当中含有多少个“0”？你能做吗？ var a,t:longint; begin readln(a); t:=0; if a mod 10=5 then while a mod 5=0 do begin a:=a div 5; t:=t+1; end else while a0 do begin if a mod 10=0 then t:=t+1; a:=a div 10; end; writeln(t); readln; end. 例如：输入：125 　输入：305160 　　　输出：3 输出：2 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 2007年长沙市计算机奥林匹克竞赛决赛试题 四、判奇偶求和 输入一个正整数n,如果n是奇数，则求1～n之间所有的偶数之和；如果n是偶数，则求n所有的约数之和。 输入：n（标准整型） 输出：和值（测试数据会保证这个值在标准整型范围） var n,i,t,s:longint; begin readln(n); t:=0;s:=0; for i:=1 to n do begin if i mod 2=0 then s:=s+i; if n mod i=0 then t:=t+i; end; if n mod 2=1 then writeln(s) else writeln(t); read