Уисполнителя калькулятор три команды, которым присвоены номера: 1. прибавь 1 2. сделай четное 3. сделай нечетное сколько существует программ, которые число 2 преобразуют в число 16

Извините.вариант 1. 2+1+1+1+1+1+1+1+1+1+1+1+1+1+1вариант 2. 2+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1 и сделать четноевариант 3. 2+1+1+1+1+1+1+1+1+1+1+1+1+1 сделать четноевариант 4. 2 сделать нечетное(3), сделать четное(4),  сделать нечетное(5), сделать четное(6),  сделать нечетное(7), сделать четное(8),  сделать нечетное(9), сделать четное(10),  сделать нечетное(11), сделать четное(12),  сделать нечетное(13), сделать четное(14),  сделать нечетное(15), сделать четное(16).

var

  x,y,z: longint;

begin

  readln(x,y,z);

if (x> 100)or(y> 100)or(z> 100) then writeln('false')

else writeln('true');

end.

решение для pascal abc

uses graphabc;

vara: integer; beginreadln(a); moveto(a,1); circle(a+a div 2,1,a div 4); lineto(a+a div 4,1); moveto(a+ (a div 4)*3,1); lineto (2*a,1); lineto(2*a,1+a); lineto (a,1+a); lineto (a,1); moveto (a,1+a); lineto (a-(a div 2),1+2*a); lineto(2*a+a div 2, 1+2*a); lineto(2*a,1+a); end.