Код программы:
program programma;
var a,b,c,x,y,z:real;
begin
writeln('Введите a, b c');
readln(a ,b, c);
x := (a+5*b)/(2*c);
y := x/(((1-a)+4*x)/(3*x)+c);
z := ln(cos(y))/ln(1+sqr(x));
writeln('z = ',y);
end.
Код программы:
program programma;
var a,b,c,x,y,z:real;
begin
writeln('Введите a, b c');
readln(a ,b, c);
x := (a+5*b)/(2*c);
y := x/(((1-a)+4*x)/(3*x)+c);
z := ln(cos(y))/ln(1+sqr(x));
writeln('z = ',y);
end.