摘要: 题意n个人(nn then i:=1; if (a[i]=0) then begin inc(j); if j=m then begin ... 阅读全文
posted @ 2017-01-13 16:44 银叶草 阅读(100) 评论(0) 推荐(0) 编辑
摘要: 题意把1到n中,所有数的约数数量相加。分析从它给出的样例中,我们可以得出这样的规律:t:=(n/1)+(n/2)+...(n/n-1)+(n/n);varn,i,t:longint;begin read(n); t:=0; for i:=1 to n... 阅读全文
posted @ 2017-01-13 15:55 银叶草 阅读(82) 评论(0) 推荐(0) 编辑
摘要: 题意走迷宫,要绕开障碍,走过的就不能再走,求有多少种不同的方法可以到达终点分析我们可以用深搜来做,输入时把障碍的坐标记录下来constdx:array[1..4]of longint=(0,0,1,-1);dy:array[1..4]of longint=(1,-1,... 阅读全文
posted @ 2017-01-13 15:26 银叶草 阅读(97) 评论(0) 推荐(0) 编辑
摘要: 题意求出加上额外权值以后,最终的权值最大的k个人,并输出他们的编号。分析先排序,再一个一个求权值。varn,k,i:longint;e:array[0..10]of longint;a:array[0..50000,1..4]of longint;procedure ... 阅读全文
posted @ 2017-01-13 10:34 银叶草 阅读(139) 评论(0) 推荐(0) 编辑
摘要: 题意有n堆纸牌,通过把牌移到另一堆,使每一堆的纸牌数相等。分析在编号为 1 堆上取的纸牌,只能移到编号为 2 的堆上;在编号为 N 的堆上取的纸牌,只能移到编号为 N-1 的堆上;其他堆上取的纸牌,可以移到相邻左边或右边的堆上。constmaxn=100;vara:a... 阅读全文
posted @ 2017-01-13 10:11 银叶草 阅读(105) 评论(0) 推荐(0) 编辑
摘要: 题意一个一个的输入,按以下规则输出:1. 多项式中自变量为 x,从左到右按照次数递减顺序给出多项式。2. 多项式中只包含系数不为 0 的项。3. 如果多项式 n 次项系数为正,则多项式开头不出现“+”号,如果多项式 n 次项系数为负,则多项式以“-”号开头。4. 对于... 阅读全文
posted @ 2017-01-13 09:31 银叶草 阅读(145) 评论(0) 推荐(0) 编辑
摘要: 题意找出最后一张覆盖在点上的地毯编号分析先输入,再从后面找,这样会更快varn,i,j:longint;a:array[0..20]of string;b,l:array[0..20]of longint;begin readln(n); for i:=1... 阅读全文
posted @ 2017-01-12 21:02 银叶草 阅读(122) 评论(0) 推荐(0) 编辑
摘要: 题意找出最大的数和它的序号分析先长度排序,长度相同,就字符串排序varn,i,j:longint;a:array[0..20]of string;b,l:array[0..20]of longint;begin readln(n); for i:=1 to... 阅读全文
posted @ 2017-01-12 20:45 银叶草 阅读(102) 评论(0) 推荐(0) 编辑
摘要: 题意把分数从大到小排序,同分数的,学号小的排前。找出分数大于等于,第m*1.5(向下取整)名的分数,的人。分析开始先排序,再一个一个找varn,m,i,j,tj:longint;k,s:array[0..10000]of longint;t:real;begin ... 阅读全文
posted @ 2017-01-12 19:38 银叶草 阅读(154) 评论(0) 推荐(0) 编辑
摘要: 题意输入一段数,去掉相同的数,再排序分析一开始输入的时候,就完成“去重”,再排序constmaxn=100000;varn,t,i:longint;a,b:array[0..maxn]of longint;procedure init;vari,w:longint;b... 阅读全文
posted @ 2017-01-12 16:19 银叶草 阅读(170) 评论(0) 推荐(0) 编辑
Live2D