Ввести файл F из 13 элементов. Определить в нём - вопрос №1354178913 от olesay12345 15.11.2021 01:41

Question

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

olesay12345 · Answer

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