
Сильвестр
4 год назад
Напишите программу в Паскале

ОТВЕТЫ

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
Смежные вопросы: