№1 Книга содержит 30 страниц. На каждой странице по 90 строк. В каждой строке по 80 символов. Вычислить информационный объем книги в байтах.
№2 Информационный объем одного сообщения составляет 0,5 Кбайт, а другого - 500 байт. На сколько бит информационный объем первого сообщения больше объема второго?

Складываем Чернику, Малину и Бурснику
350+200+500=1050

Так как сначала m = 0 и k = 0 то выведет тоже 0, так как конструкция k + m всегда возвращает 0

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x,z:real;
  for var i:=0 to 18 do begin
    x:=-3+0.5*i;
    if (Abs(x)<>2) and (x<>5) then
      z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
    Writeln(x:4:1,z:15:8)
    end;
end.

Результат
-3.0     0.02603404
-2.5     0.05396053
-2.0     0.05396053
-1.5     0.15941934
-1.0     0.15783283
-0.5     0.11009307
 0.0     0.10000000
 0.5     0.16817855
 1.0     0.21459633
 1.5     0.16205869
 2.0     0.16205869
 2.5    -0.47852157
 3.0    -0.48851066
 3.5    -0.38218382
 4.0    -0.18498749
 4.5     0.00385685
 5.0     0.00385685
 5.5     0.30151270
 6.0     0.23243357

№2

begin
  var x,z:real;
  x:=-3;
  while x<=6.01 do begin
    if (Abs(x)<>2) and (x<>5) then
      z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
    Writeln(x:4:1,z:15:8);
    x+=0.5
    end;
end.

№3

begin
  var x,z:real;
  x:=-3;
  repeat
    if (Abs(x)<>2) and (x<>5) then
      z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
    Writeln(x:4:1,z:15:8);
    x+=0.5
  until x>6.01
end.

67,5276
С сайта Центрального Банка