A)
#include <iostream>
<span>
#include "math.h"</span>
using namespace std;
int main()
{
const double Pi = 3.14;
double x,y;
<span> cin >> x;
</span>
y=((2*pow(sin(x),2))/(Pi*x)-atan(x));
cout << y << endl;
<span>}
б)
</span>#include <iostream>
<span>
<span>#include <cmath>
</span></span>double log(double a, double b)
{
return log(b) / log(a);
}
using namespace std;
int main()
{
double x,y;
cin >> x;
y=log(5,abs(x-12.5*pow(x,9))+((2*x-4)/(abs(pow(x,8)-12*pow(x,4)+5.1*pow(x,3)))));
cout << y << endl;
}
<h3>PascalABC.NET 3.4.2, сборка 1827 от 08.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a := a[::2].Sorted.Interleave(a[1::2]).ToArray;
a.Println
end.
Уму+ верный ответ только большими буквами УМУ+
16000*24*90*4 = 138240000бит = 17280000 байт = 16875 килобайт = 16,47 мбайт