program ideone;
var s,p:string;
t,k:integer;
i:byte;
begin
s:='tursun udriin mend hurgey';
k:=length(s);
t:=1;
for i:=1 to k do;
if s[i]=' ' then t:=t+1;
writeln(t)
end.
cHJvZ3JhbSBpZGVvbmU7CnZhciBzLHA6c3RyaW5nOwoJdCxrOmludGVnZXI7CglpOmJ5dGU7CmJlZ2luCglzOj0ndHVyc3VuIHVkcmlpbiBtZW5kIGh1cmdleSc7CglrOj1sZW5ndGgocyk7Cgl0Oj0xOwoJZm9yIGk6PTEgdG8gayBkbzsKCWlmIHNbaV09JyAnIHRoZW4gdDo9dCsxOwoJd3JpdGVsbih0KQplbmQu