Question

(64 БАЛЛА)
По представленной блок-схеме составьте программу и получите результат ее выполнения.

Answer 1

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

Begin
var (a,b,c):=ReadReal3('Введите a,b,c =');
var s:= sqrt(3*c*c*c + b * b * b * b * b)/(b-c);
var k:= sqrt(s) + abs(-a*b*c);
var y:= s + 3*k - (s*s*s*s/(b + c));
Writeln('y = ', y);

end.