Программа получает на вход целые числа, количество введенных чисел
Условие
Напишите программу, которая в последовательности натуральных чисел определяет наименьшее число, кратное 3. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не является членом последовательности)Количество чисел не превышает 1000. Введенные числа не превышают 30 000. Гарантируется, что в последовательности есть хотя бы одно число, кратное 3.Программа должна вывести одно число: наименьшее число, кратное 3.Пример работы программы:Входные данные | Выходные данные | 45 10 9 0 | 9 |
Формат задания
Решение по шагам
Как рассуждать
Решение. Запишем требуемое решение.var min_num: integer; num: integer; begin min_num := 30001; while true do begin readln(num); if num = 0 then break; if (num mod 3 =
Осталось ещё 1 шаг
and (num < min_num) then min_num := num; end…
Бесплатно · займёт минуту