Ответ: алгоритм - 12121(но это для нахождения числа 30, потому что число 60 получить невозможно
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString;
var p:=Pos('-',s);
if p>0 then begin s:=s.Replace('-',' - '); Writeln(s) end
else Writeln('Дефис не найден')
end.
<u>Пример</u>
черно-белый
черно - белый
175(8) = 1*8^2+7*8^1+5*8^0 = 64+56+5 = 125(10)
F1A(16) = 15*16^2+1*16^1+10*16^0 = 15*256+16+10 = 3866(10)
125+3866 = 3991(10)