Предмет: Информатика,
автор: binomuss
Решите пожалуйста информатику очень прошу.
Хотябы одно задание.
Приложения:
![](https://files.topotvet.com/i/dee/dee004dbb314d4e1fc7ee3c99f5884f3.jpg)
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Литература,
автор: petrovairina2007
Предмет: История,
автор: tanzilya1308
Предмет: Қазақ тiлi,
автор: raushanayagan20007
Предмет: Алгебра,
автор: ROBHIK
Предмет: Алгебра,
автор: ololo2