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