Не сходится с ответом...

[Paul Oakenfold]

http://pic.co.ua/ru/view/01e8f7c415b...5873ff682f552/
Вторая задача...

program pr_123;
var
y,a,c,x,m : real;
flag : boolean;
begin
write ('a= '); readln (a);
write ('c= '); readln (c);
write ('x= '); readln (x);
flag:=false;
if (a>0) or (cos(c)<>0) or (sin(3*x)<>0) then
begin
flag:=true;
m:=4*sqr(cos(5*sqr(sin(x))))*cos(5* sqr(sin(x)))*co s(x)/
(5*sqr(sin(3*x))*sin(3*x))-4*sqrt(a)/(5*sqr(sqr(sin(c)/cos(c)))*
sin(c)/cos(c))
end;

if flag and (m>0) then
y:=3*abs(sqr(a)-5*sqr(sin(sqr(c)))/sqr(cos(sqr(c)))*sin(sqr(c))/cos(sqr(c)))
+sqrt(m);

write ('a c x y'); writeln;
write (a:0:1,' ',c:0:1,' ',x:0:1,' ',y:0:4); writeln;

readln
end.

Где я допустил ошибку? Подскажите пож.

[alex_fcsm]

Условие какое?

[Paul Oakenfold]

http://pic.co.ua/ru/view/01e8f7c415b...5873ff682f552/
там вторая задачка... на паскале расписать... но ответ для проверки не сошёлся...

[alex_fcsm]

Ничего нет. Опишите словами или выложите картинку на форуме.

[Paul Oakenfold]

http://s51.radikal.ru/i134/0902/74/96e0a37cbec7.jpg
Эта открылась? вторая задачка...

[Paul Oakenfold]

мб в задаче опечатка?