Ввести файл F из 13 элементов. Определить в нём - вопрос №1313541112 от M7ila 14.06.2022 23:35

Question

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

M7ila · Answer

PascalABC.NETbeginWriteElements( LRSM.data ,ReadSeqInteger(13));ReadElements& integer ( LRSM.data ).Numerate.Count(x- x[1] mod x[0] = 0).Printend.Пример работы:...