Question

Помогите, пожалуйста. Решите то, кто что может. Тема: Алгоритмизация и программирование.

Answer 1

{№3}

var
x,y:integer;
begin
writeln('X,Y = ');
read(x,y);
writeln((sin(x)+cos(y))/(cos(x)-sin(y))*tan(x*y));
end.

{№4}
var
x,y:integer;
begin
writeln('X,Y = ');
read(x,y);
writeln((x+y)/(x+1)-(x*y-12)/(34+x));
end.

{№5}
var x,y:integer;
begin
writeln('X,Y = ');
read(x,y);
writeln((3+exp((y-1)*ln(2.7)))/(1+sqr(x)*abs(y-tan(x))));
end.

{№6}

var x:integer;
begin
writeln('X = ');
read(x);
writeln((x-exp(3*LN(x))/3)+(exp(5*LN(x))/5));
end.