Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

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

Ответ оставил Гость

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.