127 条题解
-
0
340508965 LV 10 @ 2009-07-17 09:22:41
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms虽然这是水题
虽然我是菜鸟
虽然不会其他算法但是O(∩_∩)O ---|-DP真的很有用哈
program p1203;
var n,m,i,j,k,lin,len:longint;
x:array[0..1003,0..1003] of longint;
f:array[0..1003] of longint;begin
filldword(f,sizeof(f)shr 2,9999999);
filldword(x,sizeof(x)shr 2,1);
readln(n,k);
readln(m);
for i:=1 to m do
begin
readln(lin,len);
x[lin,lin]:=x[lin,lin]+len;
end;x[0,0]:=0;
for j:=1 to n-1 do
for i:=0 to n-j do
x:=x+x;f[0]:=0;
for i:=2 to n do
for j:=1 to i do
if x[j,i]f[j-1]+1 then
f[i]:=f[j-1]+1;writeln(f[n]);
end. -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms
program dd;
var
f,a:array[0..2000]of longint;
i,j,k,x,y,m,mk,n:longint;
begin
readln(n,k);
for i:=1 to n do
a[i]:=1;
readln(m);
for i:=1 to m do begin
read(x,y);
inc(a[x],y);
end;
f[1]:=1;
mk:=a[1];
for i:=2 to n do
if mk+a[i] -
0
没有考虑到有重复的行数，哎.................,害我交了那么多次
实在是不应该啊
program covh{vijos1203};
var
a:array[1..1000]of integer;
b:array[1..1000]of boolean;
i,k,x,y,t,n,m,ans:integer;
begin
readln(n,k);
readln(m);
fillchar(a,sizeof(a),0);
fillchar(b,sizeof(b),true);
for i:=1 to m do
begin
readln(x,y);
a[x]:=a[x]+y+1;
b[x]:=false;
end;
t:=0; ans:=0;
for i:=1 to n do
begin
if t>=k then
begin
ans:=ans+(t div k);
t:=t mod k;
end;
if b[i]=false then
begin
t:=t+a[i];
if t>k then
begin
inc(ans);
t:=a[i];
end else
if t=k then
begin
inc(ans);
t:=0;
end;
end else inc(t);
end;
if (t>0)and(tk then ans:=ans+2;
writeln(ans);
end. -
0
破晓Daybreak LV 8 @ 2009-01-25 11:55:21
囧死。 交4次…… 为什么我每次想刷水题来++AC率的时候 结果 总 是比难题还要恶心呢……
-
0
这道水题我竟然交了2次才AC,第一次70分,后来看了各位大牛的题解才明白:
一行可能有多个注脚!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
一行可能有多个注脚!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
一行可能有多个注脚!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
一行可能有多个注脚!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
一行可能有多个注脚!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
一行可能有多个注脚!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
一行可能有多个注脚!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
一行可能有多个注脚!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!切记前人教训!!!!!!!!
-
0
纪念
第1501 ACer编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms交了两次，诶~~~语文不好，别玩文字游戏啊~~
-
0
TOMATOES 纪念101AC!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -
0
zltchenhana LV 3 @ 2008-11-10 10:56:06
begin
readln(sum,l);
readln(n);
for i:=1 to n do
begin
readln(q,p);
inc(a[q],p);
{贰万贰仟贰佰贰拾贰亿贰仟贰佰贰拾贰万贰仟贰佰贰拾贰亿贰仟贰佰贰拾贰万贰仟贰佰贰拾贰亿贰仟贰佰贰拾贰万贰仟贰佰贰拾贰}
end;
ans:=0; i:=1;
while i0 do
if 1+a[i] -
0
norsonerror LV 4 @ 2008-11-04 08:54:03
原来批注不是每行最多一个的...
需要加上，而不是赋值...
不然会有3个点过不了... -
0
var a,b:array[1..1000]of integer;
i,j,k,n,m,h,x:longint;
s:ansistring;
begin
readln(n,k);
for i:=1 to n do
insert('0',s,i);
readln(m);
for i:=1 to m do
begin
readln(a[i],b[i]);
n:=n+b[i];
for j:=1 to b[i] do
insert('1',s,a[i]+j);
end;
while s'' do
begin
h:=k;
while s[h+1]='1' do h:=h+1;
x:=x+1;
delete(s,1,h);
end;
writeln(x);
end. -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms理解了题意就AC了
340508965
LV 10
@ 2009-07-17 09:22:41
