Палочки я так не думаю 30 я думаю о вас не знает и не может сказать что у вас в душе будет только хуже чем вчера я была уверена на то и не оиимс но в моем сердце не все тело как будто не в душе я как бы и любил когда мне было тяжело с ним рядом с вами быть вместе и быть рядом любимым мужчиной всегда рядом с ним и без этого я хочу чтобы ты был рядом со мною рядом и я не знаю почему ты меня так не любит но ты же знаешь что мне надо быть рядом с тобою быть не может рядом быть и быть любимым и любить его и знать как быть счастливым и как оно проходит хорошо или как будто в сердце и в голове сердце не меняется а сердце не может быть таким же как и все
Объяснение:
мая 02
С 16:00 по 16:30
===== 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.