Question

Ввести файл F из 13 элементов. Определить в нём количество тех элементов, которые без остатка делятся на собственный индекс (номер позиции в файле, увеличенный на единицу).

Answer 1

PascalABC.NET

Ответ:

• begin
• WriteElements('LRSM.data',ReadSeqInteger(13));
• ReadElements&<integer>('LRSM.data').Numerate.Count(x->x[1] mod x[0] = 0).Print
• end.

Пример работы:

Answer 2

К сожалению, в вашем запросе не указан формат файла, в который вы хотите ввести данные. Однако я могу показать вам, как можно решить данную задачу на языке Python.

Вот пример кода, который позволяет ввести список из 13 элементов и определить количество элементов, которые без остатка делятся на свой индекс:

pythonCopy code
# Ввод списка из 13 элементов
F = []
for i in range(13):
    element = int(input(f"Введите элемент {i+1}: "))
    F.append(element)

# Определение количества элементов, делящихся на свой индекс
count = 0
for i in range(len(F)):
    if F[i] % (i + 1) == 0:
        count += 1

# Вывод результата
print(f"Количество элементов, делящихся на свой индекс: {count}")

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