В последовательности найдите наименьшее число, которое заканчивается на 5 - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Помогите! Дана последовательность чисел, которая оканчивается на 0. Найдите наименьшее число, которое оканчивается на 5. заранее спасибо) очень надо, сразу говорю)
мне нужно для паскаль абс нет и именно как можно проще(

Решение задачи: «В последовательности найдите наименьшее число, которое заканчивается на 5»

textual
Листинг программы
  1. begin
  2.   var v := ReadString('Введите последовательность:').Split('  '.ToCharArray(), System.StringSplitOptions.RemoveEmptyEntries);
  3.   if v.Last() <> '0' then writeln('Последовательность не завершается нулем')
  4.   else
  5.   begin
  6.     var value := v.Where(s -> s.EndsWith('5')).Select(StrToInt).DefaultIfEmpty(-1).Min();
  7.     writeln(value = -1 ? 'В последовательности нет элементов, заканчивающихся на 5' : value.ToString);
  8.   end;
  9. 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы