Исполнитель Калькулятор преобразует число на экране. У исполнителя есть три команды, которым присвоены номера: 1)прибавить 1
2)умножить на 2
3)умножить на 3

Сколько существует программ, для которых при исходном числе 1 результатом является число 38 и при этом траектория вычислений содержит число 12 и не содержит число 18?

// Напишите программу, которая в последовательности натуральных чисел определяет количество
//чисел, кратных 3. Программа получает на вход количество чисел в
//последовательности, а затем сами числа. В последовательности всегда имеется число,
//кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300.
//Программа должна вывести одно число - количество чисел, кратных 3.

Var  i,j,x  :word;
     n      :integer;
begin
  writeln('Введите количество цифр в последовательности');
  Readln (j);
  if j>100 then //Проверка накличество чисел в последовательности
      begin
        writeln ('По условия задачи цифр не должно быть более 100');
        writeln ('Введите количесво цифр еще раз');
        readln (j);
      end;
  for i:=1 to j do
  begin
    Writeln ('Введите ',i,' число');
    readln (n);
    if n>300 then //проверка максимального значения числа
      begin
        writeln ('Данное число не удовлетворяет условиям задачи (>300');
        writeln ('Введите его еще раз');
        readln (n);
      end;
      n:= n mod 3;
      if n=0 then x:=x+1;
      end;
   Writeln ('Количество чисел, кратных 3:');
   Writeln (x);
end.

#include <iostream>
using namespace std;
int main()
{
     size_t N = 0, val = 0, count = 0;
     cin >> N;
     if (N < 100) {
         for(size_t i = 0; i < N; ++i) {
             cin >> val;
             if (val < 300) {
                 if (!(val % 3)) ++count;
             } else {
                 cout << "Value must be < 300" << endl;
                 exit(1);
             }
         }
     } else {
         cout << "N must be < 100" << endl;
     }
     cout << "Count: " << count << endl;
     return 0;
}