1 а XCIII б MMCXLVI 242919/2=21459 остаток 1
21459/2=10729 остаток 1
10729/2=5364 остаток 1
5364/2=2682 остаток 0
2682/2=1341 остаток 0
1341/2=670 остаток 1
670/2=335 остаток 0
335/2=167 остаток 1
167/2=83 остаток 1
83/2=41 остаток 1
41/2=20 остаток 1
20/2=10 остаток 0
10/2=5 остаток 0
5/2=2 остаток 1
2/2=1 остаток 0
1/2=0 остаток 1
Записав полученные цифры в ряд снизу вверх, получим:
4291910=10100111101001
восьмеричная
Приведем целую часть числа 42919 в систему счисления 8 последовательным делением на число 8:
42919/8=5364 остаток 7
5364/8=670 остаток 4
670/8=83 остаток 6
83/8=10 остаток 3
10/8=1 остаток 2
1/8=0 остаток 1
4291910=1236478
В итоге Получим решение:
4291910 =1236478
шестнадцатеричную
Приведем целую часть числа 42910 в систему счисления 16 последовательным делением на число 16:
42910/16=2681 остаток 14=E
2681/16=167 остаток 9
167/16=10 остаток 7
10/16=0 остаток 10=A
4291010=A79E16
4291010 =A79E16
===== 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;
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 а XCIII б MMCXLVI 242919/2=21459 остаток 1
21459/2=10729 остаток 1
10729/2=5364 остаток 1
5364/2=2682 остаток 0
2682/2=1341 остаток 0
1341/2=670 остаток 1
670/2=335 остаток 0
335/2=167 остаток 1
167/2=83 остаток 1
83/2=41 остаток 1
41/2=20 остаток 1
20/2=10 остаток 0
10/2=5 остаток 0
5/2=2 остаток 1
2/2=1 остаток 0
1/2=0 остаток 1
Записав полученные цифры в ряд снизу вверх, получим:
4291910=10100111101001
восьмеричная
Приведем целую часть числа 42919 в систему счисления 8 последовательным делением на число 8:
42919/8=5364 остаток 7
5364/8=670 остаток 4
670/8=83 остаток 6
83/8=10 остаток 3
10/8=1 остаток 2
1/8=0 остаток 1
Записав полученные цифры в ряд снизу вверх, получим:
4291910=1236478
В итоге Получим решение:
4291910 =1236478
шестнадцатеричную
Приведем целую часть числа 42910 в систему счисления 16 последовательным делением на число 16:
42910/16=2681 остаток 14=E
2681/16=167 остаток 9
167/16=10 остаток 7
10/16=0 остаток 10=A
Записав полученные цифры в ряд снизу вверх, получим:
4291010=A79E16
В итоге Получим решение:
4291010 =A79E16
===== 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.