Напишите программку, которая в последовательности естественных чисел определяет минимальное

Напишите программку, которая в последовательности натуральных чисел определяет малое число, кратное 3. Программка получает на вход количество чисел в последовательности, а потом сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программка обязана вывести одно число малое число, кратное 3.

Задать свой вопрос
Татьяна Ланфанг
На паскале пойдет?
1 ответ
Я не уверен что пройдет все тесты,но лови.
program vichelnenieVK ;var o,a,i,b,c:integer;beginb:=30001;c:=0;read(a);for i:=1 to a do beginread(o);if (olt;b) and (o mod 3 = 0 )and (olt;30001) thenb:=o;c:=c+1;if c=1000 then breakend;writeln( b);

end.
Sashok Snovidov
vichelnenieVK ;var o,a,i,b,c:integer;beginb:=30001;c:=0;read(a);for i:=1 to a do beginread(o);if (o
Гухман Даниил
program vichelnenie;var o,a,i,b,cinteger;beginb=30001;c=0;read(a);for i=1 to a do beginread(o);if (ob) and (o mod 3 = 0 )and (o30001) thenb=o;c=c+1;if c=1000 thenbreakend;writeln( b);end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт