Текст на русском языке, содержащий 1000 знаков, передаётся с использованием двоичного кодирования. В первом случае используется телеграфная 5-разрядная кодировка. Во втором случае – электрическая кабельная связь - 8-разрядная кодировка. В каком случае текст будет передан быстрее

"вещественные числа p, b1, ..., bn, которые не превосходят по модулю 105" - К чему это условие? Если это условие включить в код, то вещественное число, такое как 123.45 уже больше модуля 105, а значит либо этого условия нету, раз уж у тебя в примере 123.45 включается в сумму, которая больше p, либо нет условия с модулем.

Я закомментировал условие проверки числа на с модулем 105 и программа работает так, как описано в примере.

Если захочешь добавить условие с модулем, то убери # и поставь табуляцию(несколько пробелов) перед s.append(k)

n = int(input()) while not 1<=n<=1000: #Ввод n, если не входит в диапазон, то ждет ввода снова    n = int(input()) s = [] p = float(input()) for i in range(n):    k = float(input())    # if k < abs(105):    s.append(k)   sum = 0 for i in s:    if i > p:        sum += i print(sum)

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
  var n:=ReadInteger('n=');
  if n>36 then begin
    Writeln('Слишком много, максимум 72');
    Exit
    end
  else begin
    var a:=new integer[n];
    var k:=0;
    for var i:=1 to 8 do
      for var j:=i+1 to 9 do begin
        a[i]:=10*i+j;
        Write(a[i],' ');
        Inc(k);
        if k>n then Exit
        end
    end
end.

Тестовое решение:
n= 36
12 13 14 15 16 17 18 19 23 24 25 26 27 28 29 34 35 36 37 38 39 45 46 47 48 49 56 57 58 59 67 68 69 78 79 89