===== 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 в лицензированной версии.
const n=10;
var
a:array[1..n] of integer;
i,k,max:integer;
begin
for i:=1 to n do
begin
a[i]:=random(3);
write(a[i]:3);
end;
writeln;
k:=0; max:=0;
for i:=1 to n do
begin
if a[i] = 0 then k:=k+1
else begin
if k>max then max:=k;
k:=0;
end;
end;
if k>max then max:=k;
writeln(max);
end.
Пример:
0 1 0 0 0 1 0 1 1 2
3