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

Question

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

Answer 1

PascalABC.NET

Ответ:

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

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