Cod sursa(job #120164)

Utilizator paulsapPaul 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
Raporteaza aceasta sursa 
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.