{prb text / infoarena}
uses crt;
var lit, cuv,lm: integer;
    c: char;
   f,g: text;
begin
 assign(f,'text.in');
 assign(g,'text.out');
 reset(f);
 rewrite(g);
 lit:=0;
 cuv:=1;
 while not eoln(f) do
 begin
   read(f,c);
    if ((c>='a') and (c<='z')) or ((c>='A') and (c<='Z')) then
      begin
       lit:=lit+1;
      end;
   if c= chr(32) then
     cuv:=cuv+1;
    end;
   lm:= lit div cuv;
   writeln(g,lm:5);
   close(f);
   close(g);
   readln;
end.