1. Напишите программку, которая обретает меньшее из чисел, кратных трём в

Question

1. Напишите программку, которая обретает меньшее из чисел, кратных трём в

1. Напишите программку, которая находит меньшее из чисел, кратных трём в последовательности целых чисел. Гарантируется, что в последовательности есть желая бы одно такое число. Программка получает на вход целые числа, количество введённых чисел безызвестно, последовательность чисел заканчивается числом 0 (0 признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превосходят 30 000. Программка должна вывести одно число: меньшее из чисел, кратных. Пример работы программки: Входные данные Выходные данные 12 3 15 2 3 6 0

Задать свой вопрос

Роман Саракович
Информатика
2019-08-12 10:12:43
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

маса одн посилки становить 4 кг, а ншо 2 кг.яка маса

A)3cos2x-5sinx+1=0б) (пи;5пи/2)Распишите досконально :)

решите задачку : обусловьте массовую долю кислорода в серной кислоте

Представьте выражение в виде ступени с основанием m:

Спищите,воткните пропущеные буковкы .Укажите падежи существительных Тайга пробудилась.Ветерок

это растение в народе нарекают хлопушкой

СРОООЧНО1)3 * 7/3 - 2 = 5 как отыскать 7/3?(ТОЛЬКО УРАВНЕНИЯ

Спасите меняяяяяя, как это решить в голову не прибывает (

помогите решить пример:0,008*10000

как произошла встреча прежних одноклассников

Кочебало София · Answer 1 · 2019-08-12 10:19:03+3:00

Var
a, min: integer;
begin
min :=30000;
repeat
readln(a);
if (a mod 3 = 0) and (a lt; min) and (a lt;gt; 0) then
min := a;
until a = 0;
writeln(min);
end.

О проекте

1. Напишите программку, которая обретает меньшее из чисел, кратных трём в

Добро пожаловать!