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

mlphappyme mlphappyme    1   22.06.2020 14:25    5

Ответы
HydRarGyrUm74 HydRarGyrUm74  15.10.2020 14:39
PascalABC.NETbeginWriteElements('LRSM.data',ReadSeqInteger(13));ReadElements&<integer>('LRSM.data').Numerate.Count(x->x[1] mod x[0] = 0).Printend.

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


Ввести файл F из 13 элементов. Определить в нём количество тех элементов, которые без остатка делятс
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика