Cod sursa(job #39932)

Utilizator mihneaCCatutii Mihnea mihneaC Data 27 martie 2007 09:29:09
Problema Text Scor 80
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.41 kb
#include<stdio.h>
#include<string.h>
#include<ctype.h>
int  main()
{
char s[60000];
FILE* f=fopen("text.in","r");
FILE *g=fopen("text.out","w");
long nrl=0;
long nr=0,i;
while(!feof(f))
 {
  fscanf(f,"%s",s);
  if(s[0]!='-')
	  {for(i=0;i<strlen(s);i++)
		if(isalpha(s[i]))
		   nrl++;
	  nr++;
	  if(strchr(s,'-'))

		   nr++;
	  }
  }

fprintf(g,"%ld",nrl/nr);
fclose(g);
fclose(f);
return 0;
}