|
|
|
|
|
var
a,b,c:array[1..5000]of longint; d:array[10..36]of char; i,j,k,l,n:longint; m:char; begin assign(input,'fjz.in'); assign(output,'fjz.out'); reset(input); rewrite(output); k:=1; n:=10; for m:='A'TO 'Z'DO begin d[n]:=m; n:=n+1; end; repeat inc(i); read(a[i]); read(b[i]); until eof ; for j:=1 to i do begin write(a[j],'='); repeat begin c[k]:=a[j] mod b[j]; a[j]:=a[j] div b[j]; if c[k]<0 then begin a[j]:=a[j]+1; c[k]:=c[k]-b[j]; end; k:=k+1; end; until (a[j]=0); for l:=k-1 downto 1do begin if c[l]>=10 then write(d[c[l]])else write(c[l]); end; write('(base ',b[j],')'); writeln; k:=1; end; close(input); close(output); end. 前五个点过不去,求解
题目 86 [NOIP 2000]进制转换
2016-08-01 18:25:35
|
|
|
|
|
|
= =
复制粘贴的一小部分忘了改,W了好几次 感谢楼上神犇以身相试求得估价函数 |
|
|
终于,WA了无数遍,才把贪心的估价函数找对
题目 107 [NOIP 2003]传染病控制
2016-08-01 14:25:19
|
|
|
同上
题目 107 [NOIP 2003]传染病控制
2016-08-01 14:00:31
|
|
|
为什么线段树这么慢。。
题目 1844 [JSOI 2008] 最大数
2016-08-01 13:55:06
|
|
|
|
|
|
打个表O(∩_∩)O哈哈~
|
|
|
权值为1的floyed……
题目 73 找最佳通路
2016-08-01 09:20:03
|
|
|
很简单的深搜,然而我总觉得我15输出了半天……
题目 66 [HAOI 2004模拟]数列问题
2016-08-01 09:07:51
|
|
|
|
|
|
点对有序QAQ
题目 1804 [NOIP 2014]联合权值
2016-07-31 20:25:57
|
|
|
说好的一星呢
题目 57 高速公路
2016-07-31 20:18:02
|
|
|
|
|
|
线性求逆元+卢卡斯定理
|
|
|
膜拜神犇,这道题有什么卵用吗?
题目 2361 逻辑岛
2016-07-31 16:32:42
|
|
|
居然数组开太大全绿了一次。。
话说Trie的数组开多大真没准
题目 615 韩国明星
2016-07-31 14:37:17
|
|
|
Trie树用来代替map,SBT用来维护数据
题目 197 [HAOI 2008]排名系统
2016-07-31 10:54:27
|
|
|
不自量力的平衡树模拟就过4个点
题目 257 动态排名系统
2016-07-31 09:23:04
|