(64 БАЛЛА) По представленной блок-схеме составьте программу и получите результат ее выполнения.
Answers & Comments
danulpopov// 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);
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
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.