Cod sursa(job #290916)
Utilizator | Catalin Tamas katamash | Data | 28 martie 2009 22:35:53 |
---|---|---|---|
Problema | Text | Scor | 70 |
Compilator | fpc | Status | done |
Runda | lame.contest | Marime | 0.43 kb |
var x:char; c,l:real;
f:text; ok:boolean;
begin
assign(f,'text.in');reset(f);read(f,x);
c:=0;l:=0;ok:=false;
while not eof(f) do begin
read(f,x);
if (x in ['A'..'z']) or (x in ['0'..'9']) then begin l:=l+1; ok:=true; end
else if ok=true then begin c:=c+1; ok:=false; end;
end;
if (x in ['A'..'z']) or (x in ['0'..'9']) then c:=c+1;
close(f);assign(f,'text.out');rewrite(f);write(f,trunc(l/c));close(f);end.