Кто может(я тупой и них**а не понял

2) 100001100 = 2^8 + 2^3 + 2^2 = 256 + 8 + 4 = 268 3) 137 = 10001001 (нужно число делить на 2, записывая остаток, и так до тех пор пока число уже нельзя будет делить, потом записываем остатки в обратном порядке)137 / 2 = 68 ( остаток 1)68 / 2 = 34 (остаток 0)34 / 2 = 17 (остаток 0)17 / 2 = 8 (остаток 1)8 / 2 = 4 (0)4 / 2 = 2 (0)2 / 2 = 1 (0)теперь записываем остатки в обратном порядке = 100010014) как я понял 8 и 16 это систему счисления, если да то: а)151 = 1 * 8^2 + 5 * 8^1 + 1 * 8^0 = 64 + 40 + 1 = 105б) 2с = 2 * 16 + 12(с) = 32 + 12 = 44

Var a, b: integer; function sum(c: integer): integer; var s: string;     i, r: integer; begin       r : = 0;       s : = inttostr(c);       for i : = 1 to length(s) do           r : = r + strtoint(s[i]);       result : = r; end; begin       readln(a, b);       if (sum(a) > sum(b)) then writeln('a > b')         else if (sum(a) = sum(b)) then writeln('a = b')                 else writeln('a < b'); end. i ♥ functions : )