Гипер сылку можно вставить в-?
​

А) Для перевода целой части необходимо умножить разряд числа на соответствующую ему степень разряда.
10011111101112 = 212*1 + 211*0 + 210*0 + 29*1 + 28*1 + 27*1 + 26*1 + 25*1 + 24*1 + 23*0 + 22*1 + 21*1 + 20*1 = 4096 + 0 + 0 + 512 + 256 + 128 + 64 + 32 + 16 + 0 + 4 + 2 + 1 = 5111
Для перевода дробной части необходимо разделить разряд числа на соответствующую ему степень разряда.
0112 = 2-1*0 + 2-2*1 + 2-3*1 = 0.375
В итоге получаем число 5111.375
ответ: 1001111110111.0112=5111.375

б) 11101010112 = 29*1 + 28*1 + 27*1 + 26*0 + 25*1 + 24*0 + 23*1 + 22*0 + 21*1 + 20*1 = 512 + 256 + 128 + 0 + 32 + 0 + 8 + 0 + 2 + 1 = 939
Для перевода дробной части необходимо разделить разряд числа на соответствующую ему степень разряда.
10111012 = 2-1*1 + 2-2*0 + 2-3*1 + 2-4*1 + 2-5*1 + 2-6*0 + 2-7*1 = 0.7265625
В итоге получаем число 939.7265625
ответ: 1110101011.10111012=939.7265625

Const
  problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
  answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
  countOfAnswers, counter: integer;
  userAnswer: String;
begin
  countOfAnswers := 0;
  for counter:=0 to 9 do
    begin
      write('Введите ответ уравнения ', problems[counter], ' : ');
      readln(userAnswer);
      if userAnswer = answers[counter] then Inc(countOfAnswers);
    end;
if countOfAnswers > 8 then writeln('Отлично')
    else if countOfAnswers > 5 then writeln('Хорошо')
    else writeln('Плохо');
end.