Предмет: Информатика,
автор: binomuss
Решите пожалуйста информатику очень прошу.
Хотябы одно задание.
Приложения:
Ответы
Автор ответа:
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.
Интересные вопросы
Предмет: Литература,
автор: aigerim0000011111
Предмет: Русский язык,
автор: igrok152384
Предмет: Математика,
автор: 0107Aisha2016
Предмет: Математика,
автор: olyyy1