Cod sursa(job #178448)

Utilizator emy2704S Octav emy2704 Data 14 aprilie 2008 16:59:36
Problema Text Scor 50
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.5 kb
#include<string.h>   
#include<stdio.h>   
int main()   
{   
char s[1000000],sr[]=" 1234567890-=`~!@#$%^&*()_+;:[]{}'<>,.?/|\"",*p;   
long n=0,k=0,x;   
long i=1;   
s[0]='1';   
FILE *fin,*fout;   
fin=fopen("text.in","r");   
for (i=1;s[i-1]!=NULL;i++)   
fscanf(fin,"%c",&s[i]);   
p=strtok(s,sr);   
while(p!=NULL){if(strlen(p)) n++;k+=strlen(p);p=strtok(NULL,sr);}   
x=k/n;   
fout=fopen("text.out","w");   
fprintf(fout,"%ld",x);   
fclose(fin);   
fclose(fout);   
return 0;   
}