Cod sursa(job #61786)

Utilizator cnrvMarcu Beniamin cnrv Data 20 mai 2007 16:25:43
Problema Text Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.43 kb
#include<stdio.h>
#include<string.h>
int main()
{long s=0,k=0,r=0,ok;
char v,l;
FILE *f=fopen("text.in","r");
FILE *g=fopen("text.out","w");
while (!feof(f))
		{fscanf(f,"%c",&v);
		ok=0;
		for (l='a';l<='z';l++)
			if (v==l){ ok=1; break;}
		if (ok==0) for (l='A'; l<='Z'; l++)
							if (v==l) {ok=1; break;}
		if (ok) {s++; if (k==0) r++;k=1;}
		else k=0;  }
fprintf(g,"%ld",s/r);
fclose(f);
fclose(g);
return 0;}