Nalmerdana
4 год назад
Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.
ОТВЕТЫ
Yuliya
Oct 24, 2020
Я не уверен что пройдет все тесты,но лови.
program vichelnenieVK ;var o,a,i,b,c:integer;beginb:=30001;c:=0;read(a);for i:=1 to a do beginread(o);if (o<b) and (o mod 3 = 0 )and (o<30001) thenb:=o;c:=c+1;if c=1000 then breakend;writeln( b);
end.
program vichelnenieVK ;var o,a,i,b,c:integer;beginb:=30001;c:=0;read(a);for i:=1 to a do beginread(o);if (o<b) and (o mod 3 = 0 )and (o<30001) thenb:=o;c:=c+1;if c=1000 then breakend;writeln( b);
end.
67
Смежные вопросы:
