Cod sursa(job #20246)
Utilizator | Capalna Tanase Tase_C | Data | 20 februarie 2007 21:34:18 |
---|---|---|---|
Problema | Text | Scor | 30 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.39 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;
writeln(l div (c+1));
close(input);close(output);
end.