127 条题解
-
0zzk LV 10 @ 2009-11-02 19:25:59
OTZ...居然有多个脚注。。。
菜了。。。。。。。 -
02009-11-02 07:32:35@
细心!一定要细心。。。
我交了12遍。。。
同一行可能有多个脚注!!! -
02009-10-28 08:20:11@
....同一行可能有多个脚注,o(︶︿︶)o 唉,卡了好几次
-
02009-10-08 11:16:49@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:0ms赤裸裸地模拟竟能秒杀,我等欣喜若狂……
-
02009-10-05 13:30:58@
基础题..................
program ex;
var
a:array[1..1000] of longint ;
n,k,f,x,y,i,nowk,ans:longint ;BEGIN
read(n,k,f) ;
for i := 1 to n do
a[i] := 1 ;
for i := 1 to f do
begin
read(x,y) ;
a[x] := y + a[x] ;
end ;
nowk := k ;
ans := 1 ;
for i := 1 to n do
begin
if nowk < a[i] then
begin
nowk := k ;
inc(ans) ;
end ;
dec(nowk,a[i]) ;
end ;
writeln(ans) ;
END . -
02009-09-21 19:12:07@
一行可能有多个脚注@_@ 我又沙茶了.......
BS下我自己 最近总犯int(tan(89.770819))的错误........
最后剩的行数要再加一页..... -
02009-08-31 21:07:25@
其实我不想cheat,不过实在想不出为什么第3组数据会错,答案是4我确实5。无语ing
-
02009-08-31 10:47:29@
这题的意思是啥啊,我的语文太烂了。。
-
02009-08-29 17:54:09@
虽说是水题,交了三次O__O"…
脚注紧跟脚注标记所在行,这样肯定是最优的。
那么一行行扫描下来,如果当前行(加上脚注)加到当前页超过的话就新建一页。
注意如果最后剩余行数>0,还要新建一页。
-
02009-08-26 16:17:11@
[red]这题好纠结!
-
02009-08-25 13:24:15@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:0msfor i:=1 to n do
begin
if a[i]>o then begin o:=k;p:=p+1;end;
o:=o-a[i];
end;水水~~
-
02009-08-18 15:40:19@
我竟然傻傻地写了个字符串处理
-
02009-08-16 11:21:35@
题目~
没看懂 -
02009-08-14 21:19:15@
R1429798 Accepted 100 From yangbei-
P1203 CPP Vivid Puppy 2009-8-14 21:15:01我是怀着无比喜爱柯南的心情作的,所以一遍AC了.........
-
02009-08-12 13:52:04@
好恶心啊.......
一行可能有多个脚注....... -
02009-08-11 22:28:17@
这题的意思是啥啊,我的语文太烂了。。。
-
02009-07-29 00:15:20@
我晕,我居然AC这种题目到一百。。。。
不过还得说
AC100 纪念!!! -
02009-07-24 14:27:03@
学编程,语文也是关键啊 O(∩_∩)O哈哈~ 1次AC
超简单水题,只要看懂后……编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:0ms本菜不才,打了30行,55555555555……
#include
using namespace std;
long n,k,f,length[1010];
int main()
{
long a,b,i,carry,ans;
cin>>n>>k>>f;
for(i=1;ia>>b;
length[a]+=b;
}
ans=1;
carry=0;
for(i=1;ik)
{
ans++;
carry=length[i];
}
else
carry+=length[i];
}
cout -
02009-07-23 11:18:48@
var
num:array[1..1000]of longint;
n,k,f,x,y,i,j,tmp,sum:longint;begin
readln(n,k);
for i:=1 to n do num[i]:=1;
readln(f);
for i:=1 to f do
begin
readln(x,y);
inc(num[x],y);
end;
tmp:=0;
sum:=0;
for i:=1 to n do
begin
inc(tmp,num[i]);
if tmp=k then
begin
inc(sum);
tmp:=0;
end;
if tmp>k then
begin
inc(sum);
tmp:=num[i];
end;
end;
writeln(sum);
end.帮我看一下哪里错了。。。囧RZ
-
02009-07-18 19:10:38@
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.