Определить количество чисел в текстовом файле, оканчивающихся заданной цифрой - PascalABC.NET
Формулировка задачи:
Дан файл, содержащий натуральные числа. Определить количество чисел этого файла, оканчивающихся заданной цифрой. Не могу разобраться с решением
Решение задачи: «Определить количество чисел в текстовом файле, оканчивающихся заданной цифрой»
textual
Листинг программы
begin var n := ReadInteger; WriteLn(ReadAllText('input.txt').ToIntegers.Count(x->x mod 10=n)); end.
Объяснение кода листинга программы
n
- переменная для хранения числа, которое нужно найти в файлеReadInteger
- функция для чтения числа с консолиReadAllText('input.txt')
- функция для чтения всех строк из файла 'input.txt'.ToIntegers
- метод для преобразования строки в список целых чиселCount(x->x mod 10=n)
- метод для подсчета количества элементов в списке, удовлетворяющих условию (x->x mod 10=n), гдеx
- элемент списка,n
- число, которое нужно найти в файлеWriteLn
- функция для вывода результата на экран
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д