Сколько бит информации в фразе Ученик, который учиться без желания, - это птица без крыльев

Это зависит от того сколько весит один символ и знаки препинания с пробелами.

Объяснение:

Насчитал 58 бит (но это не точно)

1) var a: array [1..2] of real;

          b: array [1..20] of real;

          i: integer;

          c: boolean;

  begin

  c: =false;

  readln(a[1],a[2]);

  for i: =1 to 20 do begin

                            readln(b[i]);

                            if (b[i]=a[1]) then begin writeln('a[1]=b[',i,']=',b[i]); c: =true; end;

                            if (b[i]=a[2]) then begin writeln('a[2]=b[',i,']=',b[i]); c: =true; end;

                            end;

  if c=false then writeln('совпадений не найдено');

end.

2) var a: array[1..10] of real;

    npol,notr,i: integer;

    begin

    npol: =0;

    notr: =0;

    for i: =1 to 10 do begin

                              readln(a[i]);

                              if a[i]> 0 then npol: =npol+1;

                              if a[i]< 0 then notr: =notr+1;

                              end;

    writeln('количество положительных значений: ',npol,', количество отрицательных значений: ',notr);

end.