Это технология управления и обмена информацией между программным интерфейсом других приложений.
Антивирусная программа (антивирус) — программа для обнаружения компьютерных вирусов и лечения инфицированных файлов, а также для профилактики — предотвращения заражения файлов или операционной системы вредоносным кодом (например, с помощью вакцинации). Современные антивирусные программы могут обнаруживать сотни тысяч вирусов, но ни одна из них не даст 100 % защиты.
Тогда будет Паскаль...
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
function GCD(u: integer; v: integer):integer;
begin
var r:integer;
while ( v <> 0) do
begin
r := u mod v;
u := v;
v := r;
end;
Result:=u;
end;
Begin
var (n,m):=ReadInteger2();
var gcd_n:=GCD(n,m);
var nod_n:=abs(n*m)/GCD(n,m);
gcd_n.Println;
nod_n.Println;
end.
Var
m,n,s,p:integer;
Begin
read(m,n,s);
p:= (s mod 10) + (s div 100 mod 10); {p сумма цифр}
If (p mod m = 0) and (p mod n = 0) then
writeln('Числа ',m,' и ',n,' являются делителями числа ',p)
else
writeln('Числа ',m,' и ',n,' не являются делителями числа ',p);
end.
Объяснение из скобок можешь убрать