Cod sursa(job #788081)
| Utilizator |  Filip Ion Dorinel dorinel.filip |
Data | 14 septembrie 2012 03:44:24 |
|---|---|---|---|
| Problema | Text | Scor | 30 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.35 kb |
var f,g:text;
lit,cuv,i:longint;
s:string;
begin
lit:=0;cuv:=1;
assign(f,'text.in');
reset(f);
readln(f,s);
close(f);
for i:=1 to length(s) do
if (s[i] in ['A'..'Z','a'..'z']) then
begin
lit:=lit+1;
if s[i-1] = ' ' then
cuv:=cuv+1;
end;
assign(g,'text.out');
rewrite(g);
write(g,lit div cuv);
close(g);
end.