В последовательности найдите наименьшее число, которое заканчивается на 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.

Объяснение кода листинга программы

  1. Вводится последовательность с помощью функции ReadString, которая запрашивает у пользователя ввод строки.
  2. Введенная последовательность разделяется на элементы с помощью метода Split, который преобразует каждый элемент в строку и удаляет пустые элементы.
  3. Проверяется, что последний элемент последовательности не равен нулю с помощью условия if v.Last() <> '0' then. Если это так, то выводится сообщение Последовательность не завершается нулем.
  4. Иначе выполняется следующий блок кода.
  5. С помощью метода Where и условия s -> s.EndsWith('5') выбираются только те элементы последовательности, которые заканчиваются на 5.
  6. С помощью метода Select и функции StrToInt преобразуются выбранные элементы из строк в целые числа.
  7. С помощью метода DefaultIfEmpty и значения -1 создается последовательность, в которой все элементы, не соответствующие условию, заменяются на -1.
  8. С помощью метода Min находится наименьшее значение в созданной последовательности.
  9. Выводится сообщение с найденным значением или сообщением В последовательности нет элементов, заканчивающихся на 5, если значение -1.

Оцени полезность:

11   голосов , оценка 4.091 из 5
Похожие ответы