Написала програму по системе неравенств где ошибка програма не идет
найдите ошибку

1

Ответы и объяснения

2013-12-04T20:20:14+04:00
Сильно в код не всматривался, но вот работающее решение.
program Yulia;
var x,y:real;
begin
writeln('Введите x:');
readln(x);
if (x>0.0) and (x<10.0) then
y:=cos(sqr(x)+4)+sqrt(sqr(x)+abs(x))
else
y:=tan(x+3)+5;
writeln('y=',y:5:2);
end.