#include <bits/stdc++.h>
using namespace std;
template<class T>
inline T abs(const T& a){return a < 0 ? -a : a;}
void solve(float x, float y, float z){
double fi = exp(abs(x-y));
fi *= pow(abs(x - y), x + y);
fi /= atan(x) + atan(z);
fi += pow(pow(x, 6.0), 1.0/3);
fi += pow(pow(log(y), 2), 1.0/3);
cout << fi;
}
int main()
{
float x, y, z;
cin >> x, y, z;
solve(x, y, z);
//solve(-0.02235, 2.23, 15.221);
return 0;
}
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2('Введите a и b через пробел:');
var y:=1/a+1/b;
Writeln('y=',y)
end.
<u>Пример</u>
Введите a и b через пробел: 3.8 7
y=0.406015037593985
const g = 5; v = 3;
var a: array[1..g,1..v] of integer;
i,j,maxj,minj,p:integer;
begin
writeln('Массив: ');
for i:=1 to g do
begin
for j:=1 to v do
begin
a[i,j]:=Random(101);
write(a[i,j]:4)
end;
writeln
end;
for i:=1 to g do
begin
maxj:=1;
minj:=1;
for j:=1 to v do
begin
if a[i,j]>a[i,maxj] then maxj:=j;
if a[i,j]<a[i,minj]then minj:=j;
end;
p:=a[i,maxj];
a[i,maxj]:=a[i,minj];
a[i,minj]:=p;
end;
writeln;
writeln('Преобразованный массив: ');
for i:=1 to g do
begin
for j:=1 to v do write(a[i,j]:4);
writeln
end;
end.
задание 1
i 1 2 3 4
S= 128 128-3=125 125-3=122 122-3=119 119-3=116
Ответ: S=116
Задание 2
i 1 2
j 2 3 2 3
S=0 S=1+2=3 S=1+3=5 S=2+2=4 S=2+3=5
Ответ: S=5 (конечный результат)
А)M mod 2 = 0
Т.к. остаток деления четного числа на 2 должен равняться 0
