Cod sursa(job #20766)

Utilizator asu_the_bestRusu Robert asu_the_best Data 22 februarie 2007 09:23:18
Problema Text Scor 30
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
var t:string;
    l,c,i:longint;
const lit=['A'..'Z','a'..'z'];
begin
 assign(input,'text.in');reset(input);
 assign(output,'text.out');rewrite(output);
 readln(t);t:=t+' ';
 for i:=1 to length(t) do begin
  if (t[i] in lit) then  inc(l)
                   else  inc(c);
 end;
 writeln(l div c);
 close(input);close(output);
end.