Cod sursa(job #22060)
Utilizator | Capalna Tanase Tase_C | Data | 25 februarie 2007 15:26:31 |
---|---|---|---|
Problema | Text | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.45 kb |
const litere=['A'..'Z','1'..'9'];
var n:string;
i,l,c:byte;
begin
//assign(input,'text.in');reset(input);
//assign(output,'text.out');rewrite(output);
readln(n);n:=' '+n+' ';l:=0;c:=0;
for i:=1 to length(n) do begin
if (upcase(n[i]) in litere) and (not(upcase(n[i+1]) in litere)) then inc(c);
if upcase(n[i]) in litere then inc(l);
end;
if c=0 then writeln(l-c)
else writeln(l div c);
//close(input);close(output);
end.