Из элементов данной последовательности сумма цифр которых равна 9, построить новую последовательность. - PascalABC.NET
Формулировка задачи:
Дана последовательность целых чисел ai. Построить новую последовательность, содержащую те элементы, у которых сумма цифр равна 9.
Решение задачи: «Из элементов данной последовательности сумма цифр которых равна 9, построить новую последовательность.»
textual
Листинг программы
begin
var new_seq := ReadString('Введите последовательность (через пробел)').
Split(' ').Where(s -> s.ToCharArray().Select(ch -> StrToInt(ch)).Sum() = 9);
writeln('Новая последовательность: ', new_seq);
end.
Объяснение кода листинга программы
Код считывает последовательность из ввода пользователя, разделяет её на элементы и проверяет каждый элемент на условие: сумма цифр равна 9. Если условие выполняется, элемент добавляется в новую последовательность. В конце новая последовательность выводится на экран.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д