题解

27 条题解

  • 0
    @ 2015-04-19 15:52:14

    1.猜谜游戏
    对于每一轮比赛,只需要两两对比任意两个人给出的数字即可。

  • 0
    @ 2015-04-19 12:21:36

    简单的模拟题。类似于一些网络游戏里的竞价游戏(例如:1-100的金币。你可以选择一个压下去。如果你是出钱最少且没有人跟你重复,则归你所有)

    因此只要模拟这道题就可以了。

    ###block code
    program P1941;
    var can:array[1..100,1..3] of longint;
    data:array[1..200,1..3] of longint;
    ans:array[1..200] of longint;
    i,n,j,num:longint;
    begin
    fillchar(can,sizeof(can),0); fillchar(ans,sizeof(ans),0);
    read(n);
    for i:=1 to n do
    for j:=1 to 3 do
    begin
    read(data[i,j]); inc(can[data[i,j],j]);
    end;

    for i:=1 to n do
    for j:=1 to 3 do
    begin
    if can[data[i,j],j]=1 then
    ans[i]:=ans[i]+data[i,j];
    end;

    for i:=1 to n do
    writeln(ans[i]);

    end.

  • -1
    @ 2016-09-24 11:05:28

    妥妥的水题,一次AC
    var
    a:array[1..200,1..3] of longint;
    b:array[1..200]of longint;
    n,i,j,k:longint;
    bool:boolean;
    begin
    assign(input,'cm.in');
    assign(output,'cm.out');
    reset(input);
    rewrite(output);

    readln(n);
    for i:=1 to n do
    for j:=1 to 3 do read(a[i,j]);
    for i:=1 to n do b[i]:=0;
    for k:=1 to 3 do
    for i:=1 to n do
    begin
    bool:=true;
    for j:=1 to n do
    if (a[i,k]=a[j,k])and(i<>j) then begin
    bool:=false;
    break;
    end;
    if bool then b[i]:=b[i]+a[i,k];
    end;
    for i:=1 to n do writeln(b[i]);

    close(input);
    close(output);
    end.

  • -1
    @ 2016-06-06 13:07:13

    hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh

  • -1
    @ 2016-06-06 13:07:01

    bo
    hui

  • -1
    @ 2015-12-31 22:20:48

    var a,b:array[1..10000,1..3]of longint;
    i,j,k,l,m,n,s:longint;
    begin
    readln(n);
    for i:=1 to n do readln(a[i,1],a[i,2],a[i,3]);
    for i:=1 to n do
    begin
    b[i,1]:=a[i,1];
    b[i,2]:=a[i,2];
    b[i,3]:=a[i,3]; end;
    for i:=1 to n-1 do
    for j:=i+1 to n do
    begin
    if a[i,1]=a[j,1] then
    begin
    b[i,1]:=0;
    b[j,1]:=0;
    end;
    if a[i,2]=a[j,2] then
    begin
    b[i,2]:=0;
    b[j,2]:=0;
    end;
    if a[i,3]=a[j,3] then
    begin
    b[i,3]:=0;
    b[j,3]:=0;
    end;
    end;
    for i:=1 to n do
    writeln(b[i,1]+b[i,2]+b[i,3]);
    end.

  • -1
    @ 2015-09-16 22:49:12

    这一题其实**暴力**一下就出来了。
    上标程……
    ###Block code
    #include<iostream>
    using namespace std;
    int n,ans[201],a[201],b[201],c[201];
    void read()
    {
    cin>>n;
    for(int i=1;i<=n;i++)
    cin>>a[i]>>b[i]>>c[i];
    return;
    }
    void work()
    {
    int i,j,flag=0;
    for(i=1;i<=n;i++){
    flag=0;
    for(j=1;j<=n;j++)
    if(a[i]==a[j]&&i!=j){
    flag=1;
    break;
    }

    if(flag==0){
    ans[i]+=a[i];
    }
    }//1
    flag=0;
    for(i=1;i<=n;i++){
    flag=0;
    for(j=1;j<=n;j++)
    if(b[i]==b[j]&&i!=j){
    flag=1;
    break;
    }
    if(flag==0){
    ans[i]+=b[i];
    }
    }//2
    flag=0;
    for(i=1;i<=n;i++){
    flag=0;
    for(j=1;j<=n;j++)
    if(c[i]==c[j]&&i!=j){
    flag=1;
    break;
    }
    if(flag==0){
    ans[i]+=c[i];
    }
    }//3
    for(i=1;i<=n;i++)
    cout<<ans[i]<<endl;
    }
    int main()
    {
    read();
    work();
    return 0;
    }

信息

ID
1941
难度
3
分类
(无)
标签
递交数
897
已通过
473
通过率
53%
被复制
2
上传者