CorelDRAW
(программа для изображения узоров)
Это компьютер или ноутбук
Const
K = 7;
Var
A:array[1..K] of integer;
i,n:integer;
Begin
For i:= 1 to K do
Begin
A[i]:=random(1001);
Write(A[i],' ');
End;
WriteLn;
n:=1;
For i:= 2 to K-1 do
if A[i]*A[i+1]>A[n]*A[n+1] then n:=i;
WriteLn(n,' и ',n+1)
End.
<span>M=25/5^2-1/(9 – 2^3)+7=25/25 -1/(9-8)+7=1-1+7=7
Ответ:7</span>