Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.
Ответы на вопрос
Ответил vovakuzin2001
0
Я не уверен что пройдет все тесты,но лови.
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.
Ответил vovakuzin2001
0
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.
end.
Ответил vovakuzin2001
0
program vichelnenie;
var o,a,i,b,cinteger;
begin
b=30001;
c=0;
read(a);
for i=1 to a do
begin
read(o);
if (ob) and (o mod 3 = 0 )and (o30001) then
b=o;
c=c+1;
if c=1000 then
break
end;
writeln( b);
end.
var o,a,i,b,cinteger;
begin
b=30001;
c=0;
read(a);
for i=1 to a do
begin
read(o);
if (ob) and (o mod 3 = 0 )and (o30001) then
b=o;
c=c+1;
if c=1000 then
break
end;
writeln( b);
end.
Новые вопросы