program ExampleN;
uses ...; // здесь укажите где в вашей версии Паскаля
var
x, y, z, r, s: Real;
begin
Write ('Введете x, y: ');
ReadLn (x, y);
z := Sqr (Cos (x));
if z = 0.0 then
r := 0.0
else if z > 0.0 then
r := Exp (Ln (z) / 3)
else
r := - Exp (Ln (-z) / 3);
s := 8 * r - y;
WriteLn (s);
ReadLn;
end.
Объяснение:
в паскале нет стандартной функции извлечения корня, поэтому приходится использовать такой алгоритм:
if z = 0.0 then
r := 0.0
else if z > 0.0 then
r := Exp (Ln (z) / 3)
else
r := - Exp (Ln (-z) / 3);
