Ввести файл F из 13 элементов. Определить в нём количество тех элементов, которые без остатка делятся на собственный индекс (номер позиции в файле, увеличенный на единицу).
Ответы на вопрос
Ответил LRSM
1
PascalABC.NET
Ответ:
- begin
- WriteElements('LRSM.data',ReadSeqInteger(13));
- ReadElements&<integer>('LRSM.data').Numerate.Count(x->x[1] mod x[0] = 0).Print
- end.
Пример работы:
Приложения:
Новые вопросы