Var
x,y:real;
begin
readln(x);
if x<-1 then
y:=ln(abs(x));
if (x>=-1)and(x<1)then
y:=Sin(x);
if x>=1 then
y:=Cos(x);
writeln(y:4:2);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.