Объяснение:
Можно через блокнот, Word...
Var
x,y,z:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
Write('z = ');ReadLn(z);
WriteLn('u = ',Sin(abs((y-sqrt(abs(x)))*(x-(y)/(z*z+x*x/4)))));
WriteLn('v = ',Cos(z*z+x*x+4));
End.
бег - бог - рог - рок - рак - мак - маг - шаг
Program arr;
Const n=3;
var i, j, tmp, k, z:integer;
c:boolean;
a:array [1..n,1..n] of integer;
begin
c:=false;
for i:=1 to n do
for j:=1 to n do
read(a[i][j]);
for i:=1 to n do
for j:=1 to n do
begin
tmp:=a[i][j];
for k:=i+1 to n do
for z:=j+1 to n do
if tmp = a[k][z] then
c:=true;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i][j], ' ');
writeln;
end;
if c = true then
writeln('В данном массиве есть равные друг другу элементы')
else writeln('Элементы, равные друг другу, отсутсвуют в данном массиве');
end.
Выписываем значения переменных из строк, где Х=1
![\displaystyle \overline a\,\overline bc+\overline abc+abc=\overline a\,\overline bc+bc(\overline a+a)=c(\overline a\,\overline b+b)= \\ c(\overline a+b)=\overline ac+bc](https://tex.z-dn.net/?f=%5Cdisplaystyle+%5Coverline+a%5C%2C%5Coverline+bc%2B%5Coverline+abc%2Babc%3D%5Coverline+a%5C%2C%5Coverline+bc%2Bbc%28%5Coverline+a%2Ba%29%3Dc%28%5Coverline+a%5C%2C%5Coverline+b%2Bb%29%3D+%5C%5C+c%28%5Coverline+a%2Bb%29%3D%5Coverline+ac%2Bbc)