110 =2+4 = 6
12 = 2+8 = 10 => 110+12 = 16
А вообще программа "калькулятор" умеет складывать числа, в том числе в разных системах счисления.
Смотри. В самом начале идёт единица. Если следующим идёт ноль, то результат просто умножаем на 2,если идёт единица, то результат умножаем на 2 и прибавляем у полученному единицу.
1*2+1*2*2+1*2+1*2+1*2*2=220
1*2+1*2*2*2+1*2*2+1=101
Var
l: integer;
begin
writeln('Введите длину ребра куба');
readln(l);
writeln('Объём куба равен ', l*l*l);
writeln('площадь поверхности куба равна ',l*l*6);
readln;
end.
var
i, k, n: integer;
begin
read(n);
for i := 10 to 99 do
if i mod 10 + i div 10 = n then begin
writeln(i);
k := k + 1;
end;
writeln('k = ', k);
end.