-
-
1有没有人在，有没有，急急急
-
3我是女的 没见过有其他女生同名 连老师第一次看也以为是男的囧
-
0var a:array[-9..9] of longint ; b:array[-9..9] of boolean; c:array[1..9] of char; i,j,k,x:longint; procedure dfs(x,k); var i:longint; begin
-
0var m,i,j,k,q,yy,n:longint; a:array[1..1000] of longint; b:array[1..1000] of boolean; begin assign(input,'translate.in'); assign(output,'tea
-
0var n,m,i,j:longint; a,b:array[1..100] of boolean; procedure try(ii,jj:longint); var i ,j,k,l:longint; begin if (ii=n) and (jj=m) then halt
-
2我擦你妹
-
0转进制 var x,n:longint; procedure zhuan(x,n:longint); var k:longint; begin if x>=n then zhuan(x div n,n); write(x mod n); end; begin read
-
0var z,y:array[1..100] of longint; i,n,k,m,t:longint; begin read(n); read(k); z[1]:=10; for i:=2 to n do z[i]:=i-1; y[n]:=1; for i:=1 to n-1
-
2var b:array[1..20]of boolean; n,l:longint; a:array[1..20]of longint; procedure print; var i:longint; begin for i:=1 to n do write(a[i],' ');
-
0var x:array[1..8]of integer; a,b,c:array[-7..16]of boolean; i:integer; procedure print; var k:integer; begin for k:=1 to 8 do write(x[k]:4)
-
0var n,i,j:longint; w:array[0..1000,0..1000] of int64; k:array[0..1000,0..1000]of int64; function max(a,b:longint):longint; beginif a>b th
-
0var w:array[1..8] of longint; v:array[1..8] of longint; f:array[0..8] of longint; i,j:longint; function max(a,b:longint) :longint; begin if
-
09.14 01背包 数字金字塔 http://www.tyvj.cn:8080/Problem_Show.asp?id=1044 开心的金明 218.4.165.132/oj 9.15 完全背包 多重背包 采药 http://www.t
-
0var a,b,c,d,n,m,x,y:longint; function xixi(x:longint):longint; var i,k:longint; begin k:=1; for i:=1 to x do k:=k*i; xixi:=k; end; begin rea
-
0var m,n,k,mm,nn,kk:integer; a:array[1..1000,1..1000]of integer; b:array[1..1000,1..1000]of integer; begin readln(m,n); k:=0; for mm:=1 to m
-
0我有好多话想跟你说。 请你听我说。
-
0...
-
2喔耶.
-
0121321
-
01
-
01
