Cod sursa(job #34223)
Utilizator | Pajarcu Alexandru-Petrisor petre | Data | 20 martie 2007 13:40:16 |
---|---|---|---|
Problema | Text | Scor | 40 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.38 kb |
var f,g:text;
c,lit:char;
n,l:longint;
begin
assign(f,'text.in');
assign(g,'text.out');
reset(F);
rewrite(G);
n:=0;
l:=0; lit:=' ';
while not eoln(F) do
begin
read(f,C);
if c in(['a'..'z']+['A'..'Z']) then inc(N)
else if lit in (['a'..'z']+['A'..'Z']) then inc(L);
lit:=c;
end;
if lit in (['a'..'z']+['A'..'Z']) then inc(L);
writeln(g,n div l);
close(F);
close(G);
end.