Cod sursa(job #20255)
Utilizator | Capalna 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.