Ввод: x ^ y С/П.
<-> П0 1 + + П1 ИП0 / 1/x П2
ИП1 С/П ИП2 С/П ИП0 С/П
Тогда будет Паскаль...
const
nm = 5;
type
V = array[1..nm] of real;
function SP(var a, b: V; n: integer): real;
var
i: integer;
s: real;
begin
s := 0;
for i := 1 to n do s := s + a[i] * b[i];
SP := s
end;
var
A, B, C, D: V;
P1, P2, min: real;
i, n: integer;
begin
Write('Введите размерность вектора A: '); Readln(n);
Write('Введите координаты вектора A через пробел: ');
for i := 1 to n do Read(A[i]);
Write('Введите координаты вектора B через пробел: ');
for i := 1 to n do Read(B[i]);
P1 := SP(A, B, n);
Write('Введите размерность вектора C: '); Readln(n);
Write('Введите координаты вектора C через пробел: ');
for i := 1 to n do Read(C[i]);
Write('Введите координаты вектора D через пробел: ');
for i := 1 to n do Read(D[i]);
P2 := SP(C, D, n);
if P1 > P2 then min := P2 else min := P1;
Writeln('Меньшее из скалярных произведений (A*B),(C*D) равно ', min);
end.
Результаты выполнения:
Введите размерность вектора A: 4
Введите координаты вектора A через пробел: -5.1 2.7 3.4 6.2
Введите координаты вектора B через пробел: 1.2 3.4 0 2.5
Введите размерность вектора C: 5
Введите координаты вектора C через пробел: 2.7 3.4 2.5 6.3 7.8
Введите координаты вектора D через пробел: 1.7 -1.3 2.8 0 7.2
Меньшее из скалярных произведений (A*B),(C*D) равно 18.56
смотри эта задача похожа на комбинаторную)
1ый вопрос:
на первом месте есть 3 варианта буквы, на втором тоже 3, на третьем 3
=> всего слов 3 * 3 * 3 = 27
2ой:
1 - ая буква - м, => это как минимум 10-ое слово (т.к. в предыдущих 3 * 3 словах первая - и)
при этом 10 слово - мии => 11 слово - МИМ; 12 cлово - МИР;
3ий:
1-ая буква -Р это как минимум 19 слово (предыдущие 2 * 3 * начинаются на и или м)
19 слово - РИИ => 21 - PИМ
БЕРИ ТУ КОТОРАЯ БОЛЬШЕ , видеокарта сама подстраивается под возможности твоего монитора , а чем больше ты возьмешь ,тем меньше лагов и глюков у тебя будет
<span>35 = 24 + 18 + 12 - 5 - 10 - 8 + х
</span>х=35-31
х=4
4 ученика.
Чтобы не запутаться в решении желательно воспользоваться кругами Эйлера.