Решите пожалуйста информатику очень прошу. Хотябы одно задание.

Question

Решите пожалуйста информатику очень прошу.

Хотябы одно задание.

---

Answer 1

1) 

var
t,s:real;
begin
readln(t);

if t>=8 then
s:=exp(1/sqr(t))
else if (t>-10) and (t<-8) then<br>s:=sqrt(sqr(t)+4)
else
s:=sin(t);

writeln(s);
end.

 

2) 

var
x,y:real;
begin
readln(x);

if x*(x+3)*(sqr(x)-4)>=0 then
y:=x*(x+3)*(sqr(x)-4)
else begin
writeln('net resheniy');
exit;
end;

writeln(y);
end.