473(8) = 4*8^2 + 7*8^1 + 3*8^0 = 4*64 + 7*8 + 3 = 256 + 56 + 3 = 315(10)
101010 + 1110 = 111000
1010 + 1111 = 11001
1000 + 1011 = 10011
Программа написана на языке Pascal ABC
Много не точности. Длину массива сделал через ввод пользователя.
Скинул текстовый документ и саму программу.
-------------------------------------------------------------------------------------------------------
<span>Настоящий мастер — это вечный ученик.</span>
Var a,b:integer;
begin;
b:=1;
a:=1;
while a<>0 do
begin;
readln(a);
if a=0 then break;
b:=b*a;
end;
writeln(b);
<span>end.</span>