<u>// PascalABC.NET </u>
<span><u>// Версия 3.3.5 сборка 1662 (29.04.2018)</u></span>
begin
Print('Введите координаты вектора a:');var a := ReadArrInteger(8);
Print('Введите координаты вектора b:');var b := ReadArrInteger(8);
Println('Произведение:', Range(0, 7).Select(t -> a[t] * b[t]).Sum);
end.
<u>Пример:</u>
Введите координаты вектора a: 1 4 2 3 4 5 7 2
Введите координаты вектора b: 1 4 2 4 5 3 1 4
Произведение: 83
Файл во вложении. Цифры и текст можешь поменять - это не принципиально
Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (y<=7*x/6+17/6)and(y<=-2*x+6)and(y>=-0.1*x-3.5)
then writeln('Да')
else writeln('Нет');
end.
Пример:
<span>x = 2
y = -3
Да</span>