turbo 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？
vara,b,n,i,t:integer;
begin
readln(a,b,n);
a:=amodb;t:=0;
fori:=1tondobegin
a:=a*10;
ifadivbmod2=1
thent:=t+1;
a:=amodb;
end;
writeln(t);
readln;
end.
vara,b,c,n,i,t:integer;
begin
readln(a,b,n);
t:=0;c:=adivb;
whilec>0dobegin
ifcmod10mod2=1thent:=t+1;
c:=cdiv10;
end;
a:=amodb;
fori:=1tondobegin
a:=a*10;
ifadivbmod2=1thent:=t+1;
a:=amodb;
end;
writeln(t);
readln;
end.
（4）斐波那契公约（文件名：e4）
对于Fibonacci数列：1,1,2,3,5,8,13......大家应该很熟悉吧~~~但是现在han有一个很“简单”问题,：第n项和第m项的最大公约数是多少？（5）阶乘非0位之和
（文件名：e5）
输入二个正整数n(n<1000)，x(x<6)，输出n的阶乘非0数字的最右x位的各位数字之和。（6）阶乘非0位之和（文件名：e6）
输入二个正整数n(n<1000)，x(x<6)，输出n的阶乘非0数字的最右x位的各位数字之和。
如:输入:185
输出:22
（6）分数相加（文件名：e6）
有n（1<=n<=4）个分数，求这n个分数的和。
【输入】：第一行,n表示分数的个数,后面有n行给出n个分数，每个分数给出形式为xy(0<=x<=300,1<=y<=300，x为分子，y为分母)
【输出】：一行,分数的和（其结果必须为最简分数；如果分母为1，输出为整数；不考虑分子与分母的大小问题）附加：（7）第n个数
（文件名：e7）
有一整数如下:
113135135713579…，输入正整数n，求从左往右数第n位是几?练习5：
有一整数如下:
112123123412345…
求从左往右数第n位是几?Varn,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;
untils>=n;
ifs=nthenbegin
write(n,’=‘,i);
fork:=i+1tojdowrite(‘+’,k);
writeln;
t:=t+1;
end;
untili>ndiv2;
ift=0thenwriteln(‘no’);
readln;
End.
【问题描述】
康熙皇帝在一次学习数学的过程遇到这样一道题：对一个给定的自然数M，求出所有的连续的自然数段（连续个数大于1），这些连续的自然数段中的全部数之和为M。
例子：1998+1999+2000+2001+2002=10000，所以从1998到2002的一个自然数段为M=10000的一个解。假设你是康熙皇帝的谋士，请你利用计算机程序帮他解决下面的要求所提出的问题。
【输入格式】
输入包含一个整数M的值（10<=M<=2,000,000）
【输出格式】
每行两个自然数，给出一个满足条件的连续自然数段中的第一个数和最后一个数，两数之间用一个空格隔开，所有输出行的第一个按从小到大的升序排列，对于给定的输入数据，保证至少有一个解。
例如输入一个数字50则输出
812
1114
即表示8到12这个自然数段的和为50，1