Noip201普及组题解.docVIP

质因数分解 (prime.cpp/c/pas) 【问题描述】 已知正整数n是两个不同的质数的乘积，试求出较大的那个质数。 【输入】 输入文件名为prime.in。 输入只有一行，包含一个正整数n。 【输出】 输出文件名为prime.out。 输出只有一行，包含一个正整数p，即较大的那个质数。prime.in 21 prime.out 7 【思路】：先是很容易想到爆搜，爆搜从整体上来看是对的，考虑到时间的限制，要加一点优化。先是看因数之间的关系，很容易想到如果a为n的因数，那么n/a就是n的因数，也就是说只要从1搜到就可以得出答案。（答案是n除以搜到的数。。。别打错了） 【源程序】： Var n,i,j,k:longint; begin assign(input,prime.in); reset(input); assign(output,prime.out); rewrite(output); readln(n); k:=n; for i:=2 to trunc(sqrt(n)) do begin if n mod i=0 then begin k:=n div i; break; end; end; writeln(k); close(input); close(output); end. 寻宝 (treasure.cpp/c/pas) 【问题描述】 传说很遥远的藏宝楼顶层藏着诱人的宝藏。小明历尽千辛万苦终于找到传说中的这个藏宝楼，藏宝楼的门口竖着一个木板，上面写有几个大字：寻宝说明书。说明书的内容如下： 藏宝楼共有N+1层，最上面一层是顶层，顶层有一个房间里面藏着宝藏。除了顶层外，藏宝楼另有N层，每层M个房间，这M个房间围成一圈并按逆时针方向依次编号为0，…，M-1。其中一些房间有通往上一层的楼梯，每层楼的楼梯设计可能不同。每个房间里有一个指示牌，指示牌上有一个数字x，表示从这个房间开始按逆时针方向选择第x个有楼梯的房间（假定该房间的编号为k），从该房间上楼，上楼后到达上一层的k号房间。比如当前房间的指示牌上写着2，则按逆时针方向开始尝试，找到第2个有楼梯的房间，从该房间上楼。如果当前房间本身就有楼梯通向上层，该房间作为第一个有楼梯的房间。 寻宝说明书的最后用红色大号字体写着：“寻宝须知：帮助你找到每层上楼房间的指示牌上的数字（即每层第一个进入的房间内指示牌上的数字）总和为打开宝箱的密钥”。 请帮助小明算出这个打开宝箱的密钥。 【输入】 输入文件为treasure.in。 第一行2个整数N和M，之间用一个空格隔开。N表示除了顶层外藏宝楼共N层楼，M表示除顶层外每层楼有M个房间。 接下来N*M行，每行两个整数，之间用一个空格隔开，每行描述一个房间内的情况，其中第(i-1)*M+j行表示第i层j-1号房间的情况（i=1,2,…, N；j=1,2,…,M）。第一个整数表示该房间是否有楼梯通往上一层（0表示没有，1表示有），第二个整数表示指示牌上的数字。注意，从j号房间的楼梯爬到上一层到达的房间一定也是j号房间。 最后一行，一个整数，表示小明从藏宝楼底层的几号房间进入开始寻宝（注：房间编号从0开始）。 【输出】 输出文件名为treasure.out。 输出只有一行，一个整数，表示打开宝箱的密钥，这个数可能会很大，请输出对20123取模的结果即可。.in 2 3 1 2 0 3 1 4 0 1 1 5 1 2 1 treasure.out 5 【数据范围】 对于50%数据，有0N≤1000，0x≤10000； 对于100%数据，有0N≤10000，0M≤100，0x≤1,000,000。var bo:array[1..10000,0..100] of boolean; q:array[1..10000,0..100] of longint; num:array[1..10000] of longint; i,j,n,m,a,b,t,ans:longint; procedure yxy(x,y:longint); var tmp:longint; begin if x n+1 then begin tmp:=q[x,y]; ans:=(ans+tmp) mod 20123; tmp:=tmp mod num[x]; if tmp = 0 then tmp:=num[x]; dec(y); repeat y:=(y+1) mod m; if bo[x,y] then dec(tmp); until tmp = 0; yxy(x+1,y); end; end; begi