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

Для решения этой задачи, мы можем написать программу на языке программирования Python. Вот пример кода, который решает данную задачу:

pythonCopy code
def count_d_on_odd_non_multiple_of_3_positions(input_string):
    count = 0
    for i in range(len(input_string)):
        if i % 2 != 0 and (i + 1) % 3 != 0 and input_string[i] == 'd':
            count += 1
    return count

# Пример использования функции:
user_input = input("Введите строку: ")
result = count_d_on_odd_non_multiple_of_3_positions(user_input)
print("Количество символов 'd' на нечетных местах не кратных 3:", result)

Вы можете вставить этот код в свою среду разработки или интерактивную среду Python, и программа запросит у вас ввод строки. После ввода строки она посчитает количество символов "d", находящихся на нечетных местах, не кратных 3, и выведет результат.