На вход программе подается строка. необходимо посчитать количество символов "d", находящихся на нечетных местах не кратных 3.

// PascalABC.NET

// Версия 3.4 сборка 1749 (18.08.2018)

Если места нумеруются с 1:

begin

ReadlnString.Select((i, j)-> (i, j + 1)).Where(t -> (t[1].IsOdd) and (t[1] mod 3 <> 0) and (t[0] = 'd')).Count.Println

end.

Если места нумеруются с 0:

begin

ReadlnString.Select((i, j)-> (i, j)).Where(t -> (t[1].IsOdd) and (t[1] mod 3 <> 0) and (t[0] = 'd')).Count.Println

end.