Question

Написать программу к блок схеме,срочно плиз!!!

Answer 1

var x, l, z:real;

begin

   write('Введите x: ');

   readln(x);

   write('Введите l: ');

   readln(l);

   z := power( (x*x + l), 1/5 ) + (sin(x) / cos(x)) - exp(x);

   writeln(z);

end.

В Pascal функции $tg(x)$ нет, поэтому её заменили на $\frac{sin(x)}{cos(x)}$