Доброго времени суток,прошу помочь в решении задач 23 24 26 27.
Решение задач нужно на языке PascalABC.Net
Примечание:ввод значений переменных вводятся с клавиатуры!!!

в паскале авс есть функция power

да и вообще весь стиль написания не соответствует PascalABC.Net

почему вводимые данные только целые?

Целые - потому что не сказано обратное. Стиль к языку не привязывается. Мое решение более универсально.

но куда ьене красиво и понятно

//PascalABC.NET 3.1 сборка 1200var    x, y, z: real;begin    Writeln('23');    x := ReadReal('x =');    y := ReadReal('y =');    z := Power(3, x) - 4 * x + (y - sqrt(abs(x)));    Writeln('Z = ', z);        Writeln('24');    x := ReadReal('x =');    y := ReadReal('y =');    z := x - 10 * sin(x) + abs(Power(x, 4) - Power(x, 5));    Writeln('Z = ', z);        Writeln('26');    x := ReadReal('x =');    y := ReadReal('y =');    z := x + (1 + Power(sin(x + y), 2)) / (2 + abs(x - 2 * x / (1 + x * x * y * y)));    Writeln('Z = ', z);        Writeln('27');    z := ReadReal('z =');    y := Power(cos(sin(1 / z)), 2);    Writeln('Y = ', y);end.

1. varx,y:integer;res:real;beginwriteln('Введите x');readln(x);writeln('Введите y');readln(y);res:=exp(ln(3)*x)-4*x+y-sqrt(abs(x));writeln(res);end.2.varx:integer;res:real;beginwriteln('Введите x');readln(x);res:=x-10*sin(x)+abs(exp(ln(x)*4)-exp(ln(x)*5));writeln(res);end.3.varx,y:integer;res:real;beginwriteln('Введите x');readln(x);writeln('Введите y');readln(y);res:=(1+sqr(sin(x+y)))/(2+abs(x-(2*x)/(1+sqr(x)*sqr(y))))+x;;writeln(res);end.4.varz:integer;res:real;beginwriteln('Введите z');readln(z);res:=sqr(cos(sin(1/z)));writeln(res);end.