Вычислитель Исполнитель Март21 преобразует число на экране. У исполнителя есть три команды, которым присвоены номера:
1. Прибавить 1
2. Умножить на 2
3. Умножить на 3
Сколько существует программ, для которых при исходном числе 4 результатом является число 34 и при этом траектория вычислений содержит число 10 и не содержит число 18?

по информатике, Реализовать программу следующего задания не менее чем двумя

вариантами разных циклов (например, с заранее заданным

количеством повторений, с предусловиями, с постусловиями, с

меткой и разветвлением).

В массиве из 15 элементов (ввод переменных – на ваше усмотрение)

подсчитать количество положительных (четных) и сумму

отрицательных элементов по информатике, Реализовать программу следующего задания не менее чем двумя

вариантами разных циклов (например, с заранее заданным

количеством повторений, с предусловиями, с постусловиями, с

меткой и разветвлением).

В массиве из 15 элементов (ввод переменных – на ваше усмотрение)

подсчитать количество положительных (четных) и сумму

отрицательных элементов.

Объяснение:

{1}

var
  a,k,s: integer;
begin
  read(a);
  k := 0; s := 0;
  while a mod 2 <> 0 do
    begin
    if abs(a) mod 10 > 5 then
      s := s + a;
    a := abs(a);
    if (a > 9) and (a < 100) then
      k := k + 1;
    read(a);
    end;
  writeln('k=',k,', s=',s)
end.

{2}

var
  n,i,p,a: integer;
begin
  read(n);
  p := 1;
  for i := 1 to n do
    begin
    read(a);
    if (a > 0) and (a mod 3 = 0) then
      p := p * a;
    end;
  writeln('p=',p)
end.

{3}

var
  n,a,i,k,s: integer;
begin
  read(n);
  k := 0; s := 0;
  for i := 1 to n do
    begin
    read(a);
    if a > 0 then
      begin
      s := s + a;
      k := k + 1;
      end;
    end;
  if k = 0 then k := 1;
  writeln('s=',s/k)
end.