Question

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

Answer 1

// 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.

Answer 2

Можно только попроще? На уровне 8-9 класса.

Answer 3

Это называется не попроще, а нужно указывать язык программирования... Да и откуда мне знать что Вы учите в 8-9 классе? Переделывать ничего не буду, ждите может кто-нибудь добавит свой ответ.