PASCAL ABC

[vadimc]

помоги те пожалуйста найти ошибку (задание 1.13)

program ferst;
var x,y,A,B,C,Pi,min_A,min_B:real;
begin
read(x);
read(y);
Pi:=3.14;
A:=cos(x+y)/(abs(1+x+y)+1);
B:=sin(x-y)/(abs(1+x+y)+1);
if (A>B)then
min_B:=B;
C:=cos(Pi*x)/(exp(3)*ln(sqrt(abs(sin(Pi*y+1))))+ exp(-x-y)*ln(exp(1))+(ln(10+abs(x))/ln(2)*(1+exp(3)*ln(sqrt(1+abs(x)+ex p(2)*ln(y)))+min_B
if(B>A)then
min_A:=A
C:=cos(Pi*x)/(exp(3)*ln(sqrt(abs(sin(Pi*y+1))))+ exp(-x-y)*ln(exp(1))+(ln(10+abs(x))/ln(2)*(1+exp(3)*ln(sqrt(1+abs(x)+ex p(2)*ln(y)))+min_A
writeln(x);
writeln(y);
end.

[gaw4]

может так

program ferst;
 var x,y,A,B,C,Pi,min:real;
 begin
 read(x);
 read(y);
 Pi:=3.14;
 A:=cos(x+y)/(abs(1+x+y)+1);
 B:=sin(x-y)/(abs(1+x+y)+1);
 if (A>B)then min:=B else min:=A;
 C:=cos(Pi*x)/(power(abs(sin(pi*y+1)),1/3))+ exp(-x-y)+(ln(10+abs(x))/ln(2))/(1+power(1+abs(x)+y*y,1/3))+min;
 writeln(C);
 end.

[Mad_Cat]

для

power

нужен модуль Math имхо

[gaw4]

в АВС это стандартная функция (каж. )

[vadimc]

спасибо большое вроде все работает)