Добрый день! переводим все в 2 с.с
457 = 1 0010 1111
СА = 0 1100 1010
складываем
1 0010 1111
0 1100 1010
1 1111 1001 - ответ!
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p < 0).Sum.Print
end.
Вероятнее всего это то что тебе нужно. Я так понял это схема транзисторов, да?
{тоже как вариант}
const
v: array [0..9] of integer = (1,0,0,0,1,0,1,0,2,1);
var
x,n: integer;
begin
read(x);
n := 0;
repeat
n := n + v[x mod 10];
x := x div 10;
until x = 0;
write(n)
end.