Предмет: Информатика,
автор: leooz
Нужно написать программу срочно!!!!!
Приложения:
![](https://files.topotvet.com/i/6b8/6b8e5f9a9967078bea908d99bb80636c.jpg)
Ответы
Автор ответа:
0
//PascalABC.Net 3.2
function f(x: real):real;
begin
if x=trunc(x) then
if trunc(x).iseven then result:=x*x*x*x*x else result:=1/(x*x-10)
else result:=x;
end;
begin
write ('y = ', f(readreal('x =')));
end.
function f(x: real):real;
begin
if x=trunc(x) then
if trunc(x).iseven then result:=x*x*x*x*x else result:=1/(x*x-10)
else result:=x;
end;
begin
write ('y = ', f(readreal('x =')));
end.
Похожие вопросы
Предмет: Литература,
автор: yaustal58
Предмет: Українська мова,
автор: misterneizvestny228
Предмет: Математика,
автор: many790918
Предмет: Геометрия,
автор: tuczapskapauli