Cod sursa(job #76820)

Utilizator ra_mi90Radu Popescu ra_mi90 Data 11 august 2007 16:03:08
Problema Triplete Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.52 kb
#include <stdio.h>

int m,n,a[4100][4100],nr=0;

int citire()
{int i,j,k;
FILE *f;
f=fopen("triplete.in","r");
fscanf(f,"%d %d",&m,&n);
for (k=1;k<=n;k++)
    {fscanf(f,"%d %d",&i,&j);
    a[i][j]=1;
    }
fclose(f);
}

int scriere()
{FILE *g;
g=fopen("triplete.out","w");
fprintf(g,"%d",nr);
fclose(g);
    }

int main()
{citire();
int i,j;
for (i=2;i<=m;i++)
    for (j=i+1;j<=m;j++)
        {if (a[i][j])
            if (a[i-1][j-1]&&a[i-1][j])
               nr++;
        }
scriere();
    }