Регистрация
elena1alekseevna
11.01.2021 06:49
Информатика
Есть ответ 👍

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

267
413
Посмотреть ответы 2

Ответы на вопрос:

mariazeleznak2
mariazeleznak2
4,5(43 оценок)
PascalABC.NETbeginWriteElements('LRSM.data',ReadSeqInteger(13));ReadElements&<integer>('LRSM.data').Numerate.Count(x->x[1] mod x[0] = 0).Printend.

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


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

Популярно: Информатика