Cod sursa(job #20255)

Utilizator Tase_CCapalna Tanase Tase_C Data 20 februarie 2007 21:41:49
Problema Text Scor 40
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.4 kb
const litere=['a'..'z','A'..'Z'];
var prop:string;
    c,l,i,t:longint;
begin
assign(input,'text.in');reset(input);
assign(output,'text.out');rewrite(output);
readln(prop);l:=0;c:=0;
 for i:=1 to length(prop) do begin
  if prop[i] in litere then begin inc(l);t:=0;end
                       else inc(t);
  if t=1 then inc(c);
 end;
 if c<>0 then writeln(l div c);
close(input);close(output);
end.