Cod sursa(job #22767)
Utilizator | Adrian Negreanu adi_nm | Data | 27 februarie 2007 13:40:32 |
---|---|---|---|
Problema | Text | Scor | 40 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.48 kb |
const litere=['a'..'z','A'..'Z'];
var s:ansistring;
i,j,n:longint;
nrl,nrc:longint;
begin
assign(input,'text.in'); reset(input);
assign(output,'text.out'); rewrite(output);
readln(s); n:=length(s);
s:=s+' '; i:=1;
repeat
while (not (s[i] in litere))and(i<=n) do inc(i);
if i>n then break;
j:=i+1;
while s[j] in litere do (inc(j));
inc(nrl,j-i); inc(nrc);
i:=j;
until false;
write(nrl div nrc);
close(input); close(output);
end.