Cod sursa(job #24615)

Utilizator kyrk_ddDragos Dumitrescu kyrk_dd Data 3 martie 2007 01:34:08
Problema Text Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.48 kb
#include<stdio.h>
main()
{
char a,s,p;
long i,j,k,n,valid,d=0;
FILE *f,*g;
f=fopen("text.in","r");
g=fopen("text.out","w");
i=0;j=0;valid=0;
while (!feof(f))
{
 while((a!='\n')&&(d<=5))
  {
   fscanf(f,"%c",&a);
   if(p==a)d++;
   if(a==' '){i++;
	      if(valid==0)valid=1;
	      else i--;
	     }
   if((a>=65)&&(a<=90)){valid=0;j++; }
   if((a>=97)&&(a<=122)){valid=0;j++;}
   p=a;
   }
 i++;d=0;
 }
k=j/i;
fprintf(g,"%ld",k);

fclose(f);
fclose(g);
return 0;
}