Question

Помогите составить программный код на PascalABC.NET

Answer 1

// PascalABC.NET 3.4.2, сборка 1806 от 30.09.2018

begin

 var (a, b, c) := ReadInteger3('a,b,c->');

 var m := (a + b * b) / c;

 var k := round(m) mod 3;

 case k of

   0: Println($'y={e**(m+c)}');

   1: Println($'y={Ln(a/b)}');

   2: Println($'2y={sqrt(abs((a+b)**2+c))}');

 end;

end.