Некоторое число в двоичной системе счисления записывается как 1100001.определите число и запишите его в десятичной системе счисления. c объяснениями

1100001^2 1100001^2=1*2^7+1*2^6+0+0+0+0+1*2^0=128+64+1=193^10 ответ: 193 пояснение: для того чтобы перевести двоичную в десятичную-надо сначала посчитать количество разрядов числа с конца начиная с  0-то есть число будет выглядеть так 0 1 2 3 4 5 6 7- 7 разрядов,потом берём первое число 1 умножаем его на 2 в степени семь,так как последний разряд и степень 7,получиться число 128=2^7,прибавляем к этому следующее число степень которого 6,то есть 2^6=64,дальше всё 0 и прибавляем к этому последний разряд 2^0=1,следовательно и получается 128+64+1=193  

По определению совершенным числом называется то число, которое равно сумме своих делителей отличных от самого числа. значит,чтобы решить нам нужно найти сумму делителей числа и проверить равна ли она самому числу. var   sum,  n, i: integer; begin   readln(n); //читаем число с клавиатуры   //проверяем делатели до n-1, т.к. нам нужны делители не равные //самому числу   for i: =1 to n-1 do     if n mod i = 0 then //если i является делителем n,       sum: =sum+i; // его к сумме делителей // проверяем равна ли сумма делителей числа самому  числу.   if sum = n then     writeln('число совершенное')   else         writeln('число не совершенное'); end.

Число считается совершенным, если оно равно сумме своих делителей, исключая себя самого. для проверки, является ли число n совершенным, полагаем будущую сумму делителей равной 1 (на единицу число всегда делится) и последовательно делим n на числа, начиная от 2 и заканчивая n/2. если число делится без остатка на очередной делитель, добавляем его к сумме. после завершения цикла делений сравниваем сумму с n и в случае равенства объявляем число n совершенным. в начале алгоритма проверяем, чтобы n было больше 1, в противном случае сразу объявляем число не совершенным. var   i,n,s: longint; begin   write('введите натуральное число: '); read(n);   if n=1 then writeln('число 1 не является совершенным')   else begin       s: =1;       for i: =2 to (n div 2) do           if (n mod i)=0 then s: =s+i;       if s=n then writeln('число является совершенным')       else writeln('число не является совершенным')   end end. тестовое решение: введите натуральное число: 33550336 число является совершенным введите натуральное число: 543252 число не является совершенным