Три числа (100, 102, 91) перевести в двоичную систему, вычислить их сумму и перевести в десятичную систему

Чтобы перевести в двоичную надо разделить на 2 до конца и взять остатки получим 100=1100100 102=1100110 91 = 1011011, сложим и получим100100101 переведем обратно 1*2^8+1*2^5+1*2^2+1*2^0=293 в десятичной

Когда мы находим двоичную запись числа мы делим его постоянно на 2 и находим остатки. число 2^3*2014 -2^614+45 дает при делении на 2 тот остаток что дает 45 то есть 1. поскольку выражение слева будет точно 614 раз делиться на 2. то ясно что пока число 45 не уйдет полностью то оно будет сначало давать те остатки что дает 45. итак выражение будет давать остатки: 45/2=22 (1) 22/2=11(0) 11/2=5(1)  5/2=2(1) 2/2=1(0) 1/2=0 (1) итак мы делили на 2 5раз и было 4 единици. у нас выражение теперь 2^(3*2014 -6) -2^608 608 раз оно будет давать остаток 0 при делении на 2 потом останется число 2^(3*2014-614)-1. теперь нужно применить формулу сумму прогрессии: 2^n -1 =1+2++2^n-1 то есть понятно что оно ровно n раз будут остатки 1. то есть всего единиц будет: 3*2014-614 +4=5432 двойки проверьте расчеты

Var a1,a2,b1,b2,c1,c2: integer; begin writeln('координаты превой клетки'); writeln('введите номер столбца'); readln(a1); writeln('введите номер строки'); readln(a2); writeln('координаты второй клетки'); writeln('введите номер столбца'); readln(b1); writeln('введите номер строки'); readln(b2); if ((a1 mod 2) < > 0) then if ((a2 mod 2) < > 0) then c1: =0 else c1: =1; if ((a1 mod 2) = 0) then if ((a2 mod 2) < > 0) then c1: =1 else c1: =0; if ((b1 mod 2) < > 0) then if ((b2 mod 2) < > 0) then c2: =0 else c2: =1; if ((b1 mod 2) = 0) then if ((b2 mod 2) < > 0) then c2: =1 else c2: =0; if c1=c2 then writeln('yes') else writeln('no') end.