Предмет: Информатика,
автор: katushafox23
В паскале. Напишите программу, которая в последовательности натуральных чисел находит наименьшее число, кратное трём. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Гарантируется, что в последовательности есть хотя бы одно число, кратное трём. Программа должна вывести наименьшее число, кратное трём.Пример работы программы:
Входные числа:
45
10
9
0
Выходные числа:
9
Ответы
Автор ответа:
0
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p mod 3 = 0).Min.Println
end.
Приложения:

Интересные вопросы
Предмет: Математика,
автор: ROR228
Предмет: Математика,
автор: evelinahushchyn
Предмет: Химия,
автор: denisovaalina50
Предмет: Геометрия,
автор: ImLiza
Предмет: История,
автор: АЛЕКС4321