Question

Помочь с решением в паскале
Пример имеется на первой фотографии.

Answer 1

Код программы:

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.