Cod sursa(job #20345)
Utilizator | Rusu Robert asu_the_best | Data | 21 februarie 2007 10:43:29 |
---|---|---|---|
Problema | Text | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.56 kb |
const litere=['A'..'Z','a'..'z'];
var prop:string;
i,t,c,l:longint;
begin
assign(input,'text.in');reset(input);
assign(output,'text.out');rewrite(output);
readln(prop);
for i:=1 to length(prop) do begin
if ((prop[i]) in litere) then begin t:=0;inc(l);end
else begin t:=1;
while not(prop[i+1] in litere)do
inc(i);
end;
if t=1 then inc(c);
end;
writeln(l div c);
close(input);close(output);
end.