Cod sursa(job #120164)
| Utilizator |  Paul Sapunaru paulsap |
Data | 4 ianuarie 2008 13:57:08 |
|---|---|---|---|
| Problema | Text | Scor | 20 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.31 kb |
var f,g:text;
s:string;
i,nr,l:integer;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
readln(f,s);
for i:=1 to length(s) do
if (s[i]=' ') or (s[i]='-') then inc(nr)
else
if s[i] in ['a'..'z','A'..'Z'] then inc(l);
writeln(g,trunc(l/nr));
close(f);close(g);
end.