Pagini recente » Clasament Summer Challenge 2007, runda 1 | Rezultatele filtrării | Diferente pentru concursuri intre reviziile 83 si 181 | Cod sursa (job #1884626) | Cod sursa (job #799822)
Cod sursa(job #799822)
var s:string; n,t,i,m,j:integer;f,g:text; const sp=[' ','-'];
begin
assign (f,'text.in');reset(f);
assign (g,'text.out');rewrite(g);
readln(f,s);
n:=length(s);
for i:=1 to n do
if (s[i]>='A') and (s[i]<='z')then j:=j+1
else if (i>2) and (s[i] in sp) then m:=m+1;;
writeln (g,j div (m+1));
close(f);close(g);
end.