Var
x,y:real;
begin
x:=2.509;
y:=(exp(3*ln(abs(x-3)))-5*x)/(sqr(x+2)+exp(ln(x)/5))*exp(3*ln(x+sqr(x)));
Writeln(y)
end.
<em><u>Результат выполнения программы:</u></em>
-393.821568095705
Использовать Рисователь
алг радуга
нач
новый лист(450, 300, белый)
кисть(красный)
линия(300, 50, 220,50)
линия(220, 50, 220, 100)
линия(220, 100, 300, 50)
залить(230,80)
кисть(серый)
линия(220, 100, 300, 100)
линия(300, 100, 220, 150)
линия(220, 150, 220, 100)
залить(230,110)
кисть(желтый)
линия(220, 100, 130, 100)
линия(220, 100, 130, 150)
линия(130, 150, 130, 100)
залить(150,110)
кон