Ввести файл F из 13 элементов. Определить в нём - вопрос №1313541455 от yulia6263 15.03.2021 00:07

Question

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

yulia6263 · Answer

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