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

// PascalABC.NET

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

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

begin

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

end.

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

begin

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

end.