Подскажите лучшие модели ноутбуков на сегодняшний момент в ценовом сегменте ~40.000 руб. для работы с офисными приложениями (excel, word, photoshop и тп).

// 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.

9 значений. Из алгоритма видим, что значения M будут неотрицательными. Тупо берём Ексцель и смотрим:

0   8

1   0

2   -6

3   -10

4   -12

5   -12

6   -10

7   -6

8   0

9   8

10   18

11   30

12   44

Восемь случаев просто не запустят цикл и ещё один - M = 0 - запустит его один раз.

Дано:

1024 стр.
56 строк
64 символа
кодировка: Unicide 16 бит.

решение:

1024*56*64*16=58720256 (бит всего в монографии)
58720256/8=7340032 (байта всего в монографии)
7340032/1024=7168 (КБ)
7168/1024=7 (Мегабайт всего в монографии)
если надо в гигабайтах то,
7/1024=0,0068