Public static double CosineBetweenVectors(double[] a, double[] b) { if (a.Length != b.Length || a.Length == 0) throw new Exception("не верные параметры");
double ab = 0; double a_length = 0; double b_length = 0; for (var i = 0; i < a.Length; i++) { ab += a[i] * b[i]; a_length = a[i] * a[i]; b_length = b[i] * b[i]; }
if (a_length * b_length == 0) throw new Exception("Нулевые вектора");
return ab / Math.Sqrt(a_length) / Math.Sqrt(b_length); }
{ ответ дан на языке Pascal } //1-ая задача PROGRAM Solution(INPUT, OUTPUT);
VAR num: INTEGER; n1, n2, n3: INTEGER;
BEGIN WRITE('Введите 3-значное число: '); READ(num);
n1 := (num DIV 100); n2 := (num MOD 100 MOD 10); n3 := (num MOD 100 DIV 10); IF(n1 + n2 + n3) MOD 2 = 0 THEN WRITELN('Чётное') ELSE WRITELN('Нечётное'); END.
//2-ая задача PROGRAM Solution(INPUT, OUTPUT);
VAR num: INTEGER; n1, n2, n3: INTEGER;
BEGIN WRITE('Введите 3-значное число: '); READ(num);
n1 := (num DIV 100); n2 := (num MOD 100 MOD 10); n3 := (num MOD 100 DIV 10); IF(num * num) = (n1 * n1 * n1) + (n2 * n2 * n2) + (n3 * n3 * n3) THEN WRITELN('Равен') ELSE WRITELN('Не равен'); END.
//3-я задача PROGRAM Solution(INPUT, OUTPUT);
VAR a, b, c: INTEGER;
BEGIN WRITE('Введите a, b, c: '); READ(a, b, c);
IF(a = b) OR (b = c) OR (c = a) THEN WRITELN('Равнобедренный') ELSE WRITELN('Не равнобедренный'); END.
{
if (a.Length != b.Length || a.Length == 0) throw new Exception("не верные параметры");
double ab = 0;
double a_length = 0;
double b_length = 0;
for (var i = 0; i < a.Length; i++)
{
ab += a[i] * b[i];
a_length = a[i] * a[i];
b_length = b[i] * b[i];
}
if (a_length * b_length == 0) throw new Exception("Нулевые вектора");
return ab / Math.Sqrt(a_length) / Math.Sqrt(b_length);
}
//1-ая задача
PROGRAM Solution(INPUT, OUTPUT);
VAR
num: INTEGER;
n1, n2, n3: INTEGER;
BEGIN
WRITE('Введите 3-значное число: ');
READ(num);
n1 := (num DIV 100);
n2 := (num MOD 100 MOD 10);
n3 := (num MOD 100 DIV 10);
IF(n1 + n2 + n3) MOD 2 = 0
THEN WRITELN('Чётное')
ELSE WRITELN('Нечётное');
END.
//2-ая задача
PROGRAM Solution(INPUT, OUTPUT);
VAR
num: INTEGER;
n1, n2, n3: INTEGER;
BEGIN
WRITE('Введите 3-значное число: ');
READ(num);
n1 := (num DIV 100);
n2 := (num MOD 100 MOD 10);
n3 := (num MOD 100 DIV 10);
IF(num * num) = (n1 * n1 * n1) + (n2 * n2 * n2) + (n3 * n3 * n3)
THEN WRITELN('Равен')
ELSE WRITELN('Не равен');
END.
//3-я задача
PROGRAM Solution(INPUT, OUTPUT);
VAR
a, b, c: INTEGER;
BEGIN
WRITE('Введите a, b, c: ');
READ(a, b, c);
IF(a = b) OR (b = c) OR (c = a)
THEN WRITELN('Равнобедренный')
ELSE WRITELN('Не равнобедренный');
END.