![Сильвестр](https://sproshu.net/uploads/ava/2/ava8228.jpg)
Сильвестр
4 год назад
Напишите программу в Паскале
![](https://store.sproshu.net/207e/779788c8dcca.jpg)
ОТВЕТЫ
![Aneliya](https://sproshu.net/uploads/ava/3/ava5505.jpg)
Aneliya
Oct 24, 2020
//название
function f(x:real):real;
begin
if x<0 then f:=x
else if x=0 then f:=sin(x+1)
else f:=cos(2*x);
end;
begin
write (f(readreal('Введите x: ')));
end.
function f(x:real):real;
begin
if x<0 then f:=x
else if x=0 then f:=sin(x+1)
else f:=cos(2*x);
end;
begin
write (f(readreal('Введите x: ')));
end.
744
Смежные вопросы: