Ввести файл F из 13 элементов. Определить в нём - вопрос №1354088713 от TaehyungHolod 26.07.2022 21:06

Question

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

TaehyungHolod · Answer

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