begin
var s := ReadlnString;
s.Println;
s.ToCharArray.IndexesOf(t -> t = ' ').Where(t -> t.IsOdd).Count.Println
end.
begin
var s := ReadlnString;
s.Println;
s.ToCharArray.IndexesOf(t -> t = ' ').Where(t -> t.IsOdd).Count.Println
end.
А роза упала на лапу АзораА роза упала на лапу Азора2