Ну и какие проблемы? Пожалуйста. Но вообще-то не устаю повторять: если Вы настроились с самого начала не учиться, а выезжать на добрых дядях с форумов, то толку не будет - уж поверьте. Так что мой Вам совет: пока не поздно - беритесь за ум.
Задача 1
Код:
VAR
x,y:Real;
BEGIN
write('x= ');
readln(x);
If x>3 then writeln('Out of range!')
else
If x>0 then y:=sqr(cos(x))-sqrt(x)+exp(sqrt(1+sqr(x)))
else
y:=exp(5.0*Ln(10))-sin(x/-exp(Ln(1-x)/3));
If x<3 then writeln('y= ',y:0:5);
Readln;
END.
Задача 2
Код:
VAR
x,y:Real;
BEGIN
write('x= ');
readln(x);
write('y= ');
readln(y);
writeln((sqrt(sqr(x)+sqr(y))<2) or ((x>0) and (x<4) and (y>-1) and (y<1)));
Readln;
END.