Cod sursa(job #278893)
Utilizator | Adrian Negreanu adi_nm | Data | 12 martie 2009 16:30:46 |
---|---|---|---|
Problema | Text | Scor | 90 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.45 kb |
const litere=['a'..'z','A'..'Z','0'..'9'];
var s:ansistring;
i,nrc,nrcuv:longint;
begin
assign(input,'text.in'); reset(input);
assign(output,'text.out'); rewrite(output);
while not eof do begin
readln(s); s:=s+' ';
for i:=1 to length(s)-1 do
if s[i] in litere then begin
inc(nrc);
if not (s[i+1] in litere) then inc(nrcuv);
end;
end;
writeln(nrc div nrcuv);
close(input); close(output);
end.