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

1)var i,x,n,a:integer

begin

x:=0;

read(n);

for i:=1 to n do    //Если количество  чисел не дано, то надо писать while not eof. 

begin

read(a);

if a mod 4 = 0 then inc(x)     //x:=x+1;

end;

write(x);

end.

2)var i,min,a,n:integer;

begin

min:=30001;

read(n);

for i:=1 to n do begin

read(a);

if a mod 3 = 0 then

if a<min then min:=a;

end;

write(min);

end.

N = int(input())

nums = [int(input()) for i in range(N)]

mults = [i for i in nums if i % 3 == 0]

print(min(mults))

Объяснение:

Var x,y,z: real;
      t: integer;
begin writeln('введите х и у');
          readln(x,y);
          z:=sqrt(sqr(x)-sqr(y));
          t:=0;
          while (z>0,1) do
          begin t:=t+1;
                    z:=0,98*z;    {если 2% от изменяющегося расстояния до пола;
                   если же имеется ввиду 2% от исходного расстояния,
                   то нужно будет ввести новую переменную
                   или присвоить исходное значение z, например х,
                   то есть сразу после z:=sqrt(sqr(x)-sqr(y)); написать x:=z;
                   Формула (оператор) z:=0,98*z;  изменится так:
                   z:=z-x*0,98}
           end;
          writeln('палка упадет через ', t,' мин.');
end.

Главные цели создания распространения бесплатного софта выглядят так:Цель 1: Поиск работы разработчиком. Многие программисты создают и распространяют бесплатный софт в надежде, что программу оценят и им дадут крупный заказ. Вполне себе коммерческая цель.Цель 2: Продать написанный софт. Многие бесплатные программы со временем могут стать весьма популярными, при условии, что они хорошие. Крупные фирмы часто выкупают права на использования программ, которые завоевали популярность не только своей бесплатностью, но и удобством.Цель 3: Реклама себя и своей платной продукции. Разработчики бесплатного софта часто параллельно занимаются созданием платных программ. А бесплатно распространяющаяся программа это с одной стороны реклама разработчика, а с другой стороны, на бесплатных программах часто показывается коммерческая реклама, за которую заплачены деньги.Цель 4: Изменение статуса программы. Многие программы, добившись популярности и признания, сначала становятся условно платными, а потом и полностью переходят в состояние платных.Цель 5: Продвижение иных программных продуктов. Бесплатные программы часто распространяются с целью продвижения какого-либо языка программирования и т.д.Цель 6: Антимонопольная. Некоторые крупные фирмы специально создают и распространяют бесплатный софт для того, чтобы избежать обвинений в монополии в определённой доле рынка занятой программным обеспечением. Так что многие пользователи этих самых программ сильно бы удивились, узнав, кто стоит за их продвижением.