Переведите двоичное число 1101100 в десятичную систему счисления.

SysUtils;
var
a,b,c,d:real;
begin
read(a,b,c,d);
if d=0 then begin
while (sqr(a)*b<288) do begin
b:=b+1;
end;
d:=a*sqr(b);
end
else if c=0 then begin
b:=sqrt(d)*(-1);
while (a*sqr(b)<>81) do begin
a:=a+1;
end;
c:=sqr(a)*b;
end;
writeln(a:1:0,' ',b:1:0,' ',c:1:0,' ',d:1:0);
end.

но она постоянно получает тайм аут, помогите увеличить скорость ее работы любым путем

1 0 1 1 1 0 0 1 1 0 1 1 1 0 0 1

то разрядность процессора равна:

ЛАМПОЧЕК ДОЛЖНО НАХОДИТСЯ НА ТАБЛО, ЧТОБЫ С ЕГО ПОМОЩЬЮ ПЕРЕДАТЬ 18 РАЗЛИЧНЫХ СИГНАЛОВ?

101010
110111
перевод из восмеричной в десятичную систему счисления

703

101

перевод из десятичной в двоичную систему счисления

535

111

128; 256; 512; 1024?
3. Чему в десятичной системе равны следующие двоичные числа:
1000001; 10000001; 100000001; 1000000001?
4. Переведите в десятичную систему следующие двоичные числа:
101; 11101; 101010; 100011; 10110111011.
5. Переведите в двоичную систему счисления следующие десятичные числа:
2; 7; 17; 68; 315; 765; 2047.
6. Выполните сложение в двоичной системе счисления:
11 + 1; 111 + 1; 1111 + 1; 11111 + 1.
7. Выполните умножение в двоичной системе счисления:
111 · 10; 111 · 11; 1101 · 101; 1101 · 1000.