Pagini recente » Cod sursa (job #1062503) | Cod sursa (job #1318449) | Cod sursa (job #1547126) | Cod sursa (job #1488363) | Cod sursa (job #1089154)
var s : string;
k,l,i : longint;
begin
assign(input,'text.in'); reset(input);
assign(output,'text.out'); rewrite(output);
readln(S);
for i:=1 to length(S) do if S[i] in ['A'..'Z','a'..'z'] then l:=l+1;
for i:=1 to length(S)-1 do begin
if (S[i]=' ') and (S[i+1]<>'-') then k:=k+1;
if (S[i]='-') and (S[i+1]<>' ') then k:=k+1;
end;
writeln(l div k);
close(input); close(output);
end.