Количество значащих цифр в двоичной записи шестнадцатеричного числа 87916 равно …

varb: array [1..8] of integer; r,q: integer; begin  for r: =1 to 8 do  begin  q: =0;   read(b[r]);   end;   for r: =1 to 8 do  if b[r] mod 2=1 then q: =q+b[r];   writeln;   writeln('сумма нечетных чисел равна ',q); end.

грубо и сердито:

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.

2 единицы т.к 1025=10000000001 в двоичной системе счисления

строка, рот, ройка, ретро, рост, койка, река,тройка,тропа,река.