Cod sursa(job #39924)

Utilizator mihneaCCatutii Mihnea mihneaC Data 27 martie 2007 09:22:37
Problema Text Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 kb
#include<fstream.h>
#include<string.h>
#include<ctype.h>
int  main()
{
char s[60000];
fstream f("text.in",ios::in);
fstream g("text.out",ios::out);
long nrl=0;
long nr=0,i;
while(!f.eof())
 {
  f>>s;
  if(s[0]!='-')
	  {for(i=0;i<strlen(s);i++)
		if(isalpha(s[i]))
		   nrl++;
	  nr++;
	  if(strchr(s,'-'))

		   nr++;
	  }
  }

g<<nrl/nr;
g.close();
return 0;
}