Cod sursa(job #1039184)
Utilizator | Valeriu Motroi Djok | Data | 22 noiembrie 2013 17:33:15 |
---|---|---|---|
Problema | Text | Scor | 30 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.38 kb |
var c:char;
lungime, nr:longint;
begin
assign(input,'text.in');
assign(output,'text.out');
reset(input);
rewrite(output);
lungime:=0; nr:=0;
while not eof do
begin
read(c);
if (not(c in ['a'..'z','A'..'Z'])) then inc(lungime)
else if lungime>0 then inc(nr);
end;
writeln(lungime/nr);
close(input);
close(output);
end.