Cod sursa(job #743060)
| Utilizator |  Kurt Godel Maarcell |
Data | 2 mai 2012 23:19:42 |
|---|---|---|---|
| Problema | Text | Scor | 40 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.33 kb |
var i,j,k,l,m,n:longint; c:char; f1,f2:text;
begin
assign(f1,'text.in');
reset(f1);
assign(f2,'text.out');
rewrite(f2);
k:=1;
l:=0;
repeat
read(f1,c);
if (c in ['a'..'z']) or (c in ['A'..'Z']) then Inc(l)
else if (c=' ') or (c='-') then Inc(k);
until eoln(f1);
l:=l+1;
writeln(f2,l div k);
close(f1);
close(f2);
end.