Переведите число в десетичную систему счисления : 1100111001^2

Число в десятичной системе исчисления 825

С 40-ого тысячелетия до нашей эры по 2 тысячелетие до нашей эры:  
Наскальные изображения
Петроглифы 
Восковые таблички 
Папирус 
Книга из бамбуковых планок 

С начала нашей эры до начала XX века нашей эры:  
Бумага 
Печатная книга ( " Московский Апостол " ) 
Музыкальные шкатулки
Фонограф 
Патефон 
Книга, напечатанная шрифтом Брайля

От начала ХХ века по наши дни: 
Магнитофон 
Перфокарта 
Жесткий диск 
USB-flash
Фотоплёнка 
Киноплёнка 
Память на магнитных сердечниках 
Кассета для аналоговой звукозаписи 
Аудиокассета 
Микрокассета 
Видеокассета 
Дискеты

Самый простой вариант - подсчитать сумму четных и нечётных через цикл, в котором берём остатки от деления. Можно начать с конца и соответственно начать подсчитывать сумму только от первого числа с конца не равного 0. Подсчитываем через целочисленное деление на круглое число и нахождение остатка при деление на один. Данные, чередуя, прибавляем к разным переменным(пусть будут x1 и x2). Затем проверяем остаток от деления одной переменной на другую. Если 0 - "Yes", иначе - "No" For i=5 downto 1 do If i Mod 2 = 1 then a:= a+n div (10^(i-1)) mod 10 Else B=B+ div (10^(i-1)) mod 10;