В последовательности найдите наименьшее число, которое заканчивается на 5 - PascalABC.NET
Формулировка задачи:
Помогите! Дана последовательность чисел, которая оканчивается на 0. Найдите наименьшее число, которое оканчивается на 5.
заранее спасибо)
очень надо, сразу говорю)
мне нужно для паскаль абс нет и именно как можно проще(
Решение задачи: «В последовательности найдите наименьшее число, которое заканчивается на 5»
textual
Листинг программы
begin var v := ReadString('Введите последовательность:').Split(' '.ToCharArray(), System.StringSplitOptions.RemoveEmptyEntries); if v.Last() <> '0' then writeln('Последовательность не завершается нулем') else begin var value := v.Where(s -> s.EndsWith('5')).Select(StrToInt).DefaultIfEmpty(-1).Min(); writeln(value = -1 ? 'В последовательности нет элементов, заканчивающихся на 5' : value.ToString); end; end.
Объяснение кода листинга программы
- Вводится последовательность с помощью функции ReadString, которая запрашивает у пользователя ввод строки.
- Введенная последовательность разделяется на элементы с помощью метода Split, который преобразует каждый элемент в строку и удаляет пустые элементы.
- Проверяется, что последний элемент последовательности не равен нулю с помощью условия
if v.Last() <> '0' then
. Если это так, то выводится сообщениеПоследовательность не завершается нулем
. - Иначе выполняется следующий блок кода.
- С помощью метода Where и условия
s -> s.EndsWith('5')
выбираются только те элементы последовательности, которые заканчиваются на 5. - С помощью метода Select и функции StrToInt преобразуются выбранные элементы из строк в целые числа.
- С помощью метода DefaultIfEmpty и значения -1 создается последовательность, в которой все элементы, не соответствующие условию, заменяются на -1.
- С помощью метода Min находится наименьшее значение в созданной последовательности.
- Выводится сообщение с найденным значением или сообщением
В последовательности нет элементов, заканчивающихся на 5
, если значение -1.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д