- 博客(3)
- 收藏
- 关注
原创 自然数拆分
从一开始拆,往下搜。var a:array[0..1000] of longint; n,total:longint;procedure init;begin read(n);end;procedure print(m:longint);var i:longint;begin inc(total); write(total,':',n
2016-11-24 15:54:45 1881
原创 素数环
这道题大胆去搜,不用怕超时。打印时很吓人。呵呵呵!var a:array[0..21] of longint; b:array[0..21] of boolean; s:longint;function bool(x,y:longint):boolean;var i:longint;begin for i:=2 to trunc(sqrt(x+
2016-11-24 15:53:11 413
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人