Представить систему как чёрный ящик - это значит указать её входы и выходы
101010 + 1110 = 111000
1010 + 1111 = 11001
1000 + 1011 = 10011
Var x,y:real;
begin
readln(x);
if x<0 then y:=1
else if (x>=0) and (x<10) then y:=x+3
else if x>=10 then y:=x/2;
writeln(y);
<span>end.</span>
Ответ:
надо разложить его на множители и отыскать чётные