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

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

1

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

2013-01-21T18:49:30+00:00

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
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.