Переведите целое десятичное число 151 в двоичную систему счисления: а) делением на 2; б) по схеме n10 n8 n2 в) по схеме n10 n16 n2

сумма=18

семерки нету

или тебе программу написать?

а если число

var n,i,p: integer;

s: string;

begin

  read(n);

  s: =str(n) ; {переводим число в строку}

  n: =0;

  for i : = 1 to length(s) do

      n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}

  writeln(n);

  read(n);

  p: =1;

  for i: = 1 to n do

    p: = p*i;

  writeln(p);

end.