По информатике перевести число 549 из десятичной системы счисления в двоичную, переведите в биты 1/4 к байта, переведите двоичные коды в десятичные 101000, 11001, 10100, 11110, 1010,

549 - 100100101

101000 - 50

11001 - 25

10100 - 20

11110 - 30

1010 -   10

 

(1/4) кбайт = 250 байт долно быть правильно)  

Используется формула гаусса (формула "шнурования"). // pascalabc.net 3.3, сборка 1583 от 25.11.2017 // внимание! если программа не работает, обновите версию! - с функцией: function spolygongauss(a: array of real): real; // возвращает вычисленную по формуле гаусса площадь многоугольника, // координаты вершин которого заданы массивами х и у begin   var (n,i): =(a.length-4,0);   result: =0.0;   while i< =n do begin       result+=a[i]*a[i+3]-a[i+1]*a[i+2];       i+=2       end;   result: =abs(0.5*result) end; begin   var x: =readarrreal('введите координаты вершин 5-угольника: ',10);   setlength(x,12);   x[10]: =x[0];   x[11]: =x[1];   writeln('площадь равна ',spolygongauss(x)) end. пример введите координаты вершин 5-угольника: 0.6 2.1 1.8 3.6 2.2 2.3 3.6 2.4 3.1 0.5 площадь равна 3.915 - с процедурой: procedure spolygongauss(a: array of real; var s: real); // вычисляет по формуле гаусса площадь многоугольника, // координаты вершин которого заданы массивами х и у begin   var (n,i): =(a.length-4,0);   s: =0.0;   while i< =n do begin       s+=a[i]*a[i+3]-a[i+1]*a[i+2];       i+=2       end;   s: =abs(0.5*s) end; begin   var x: =readarrreal('введите координаты вершин 5-угольника: ',10);   setlength(x,12);   x[10]: =x[0];   x[11]: =x[1];   var s: real;   spolygongauss(x,s);   writeln('площадь равна ',s) end.

Чтобы излишне не терять точность и не тратить лишнее время на вычисления, выведем рекуррентную формулу. в не сказано точно, как определять условие окончания суммирования. примем, что суммирование завершается, если очередной член ряда не может изменить накопленную сумму больше, чем на ε, т.е. |aₓ| ≤ ε. // pascalabc.net 3.3, сборка 1583 от 25.11.2017 // внимание! если программа не работает, обновите версию! begin   var (ai1,eps,s,i): =(3/2,0.001,3/2,2);   while true do begin       var a: =3/(4*i-2)*ai1;       if abs(a)> eps then begin i+=1; s+=a; ai1: =a end       else break       end;   writeln('s = ',s: 0: 3) end. результат s = 2.532