Question

Помогите пожалуйста сделать программу по информатике​

Answer 1

Ответ:

Объяснение:

function stepen(x, n:real):real;

begin

 stepen:=exp(n*ln(x));

end;

var

 x, y, f:real;

begin

 readln(x, y);

 f:=0;

 if (x>y) then f:=(x*x*x*x) + (y*y*y*y*y) else f:=stepen(x+y, 0.5);

 // f:=stepen(x+y, 0.5); - возведение суммы вещественных чисел

 // в степень 1/2 - вычисление квадратного корня

 writeln(f);

end.