Question

Напишите текст программы в PascalABC

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

function f(x,y:real):real;
begin
  if y>0 then Result:=x**y
  else
    if y<0 then Result:=x**(-y)
    else Result:=0
end;

begin
  var (x,y):=ReadReal2('Введите x и у:');
  Writeln('f(x,y)=',f(x,y))
end.

Пример
Введите x и у: 3.8 2.11
f(x,y)=16.7241243820503