Астрономы часто изучают карты звезд, где звезды представлены точками на плоскости, и каждая звезда имеет декартовы координаты (xi
,yi). На карте находится N звезд. Астрономы
называют уровнем звезды количество звезд, которые не выше и не правее этой звезды.
Астрономы хотят знать распределение уровней звезд. Напишите программу, которая считает
количество звезд каждого из уровней от 0 до N-1.

===== PascalABC.NET =====

function Coeff(x, y: array of real): (real, real);

begin

 var Sx := x.Sum;

 var Sy := y.Sum;

 var Sx2 := x.Sum(p -> p * p);

 var Sxy := x.Zip(y, (p, q) -> p * q).Sum;

 var n := x.Length;

 var a0 := (Sy * Sx2 - Sxy * Sx) / (n * Sx2 - Sqr(Sx));

 var a1 := (n * Sxy - Sy * Sx) / (n * Sx2 - Sqr(Sx));

 Result := (a0, a1)

end;

begin

 var n := ReadInteger('Количество точек:');

 var x := ReadArrReal('Значения х:', n);

 var y := ReadArrReal('Значения y:', n);

 var (a0, a1) := Coeff(x, y);

 $'a0 = {a0}, a1 = {a1}'.Print

end.

1) Качество системы (пиратская может выдать ошибку при исправной системе в работах на приложениях).

2) С лицензионной Windows можно получить бесплатную от поставщика компьютера или от отдела технической поддержки Microsoft.

3) С лицензионой "Виндой" можно иметь доступ к постоянно обновляемым услугам защиты информации — пираты этих возможностей Вам не предоставляют.

4) Еще один большой плюс лицензионных операционных систем — это возможность их установки на машины по локальной сети.

5) Наличие сертификатов качества от Microsoft в лицензированной версии.