Напишу на С++
Объяснение:
#include <iostream>
using namespace std;
int main() {
setlocale(LC_ALL, "ru");
cout << "Введите первое число<< endl;
int number_one = 0;
cin >> number_one;
cout << "Введите второе число<< endl;
int number_two = 0;
cin >> number_two;
cout << "Введите третье число<< endl;
int number_three = 0;
cin >> number_three;
cout << "Сумма этих чисел - << number_one + number_two + number_three << endl;
cout << "Разность - " << number_one - number_two - number_three << endl;
double answer = 0;
double = number_one / number_two / number_three;
cout << "Частное - " << double;
}
===== 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.
Напишу на С++
Объяснение:
#include <iostream>
using namespace std;
int main() {
setlocale(LC_ALL, "ru");
cout << "Введите первое число<< endl;
int number_one = 0;
cin >> number_one;
cout << "Введите второе число<< endl;
int number_two = 0;
cin >> number_two;
cout << "Введите третье число<< endl;
int number_three = 0;
cin >> number_three;
cout << "Сумма этих чисел - << number_one + number_two + number_three << endl;
cout << "Разность - " << number_one - number_two - number_three << endl;
double answer = 0;
double = number_one / number_two / number_three;
cout << "Частное - " << double;
}
===== 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.