Cod sursa(job #20767)

Utilizator aeerdna24Stan Andreea aeerdna24 Data 22 februarie 2007 09:23:18
Problema Text Scor 30
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 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.