Ну я думаю иконка, но честно говоря вопрос странный
//PascalABC.Net 3.2
function f(x:real):=1/(x*sqr(x)-2*x);
begin
write ('y=', f(readreal('Введите x: ')));
end.
Алгоритмический язык:
нач
ввод (x);
вывод (1/x^3-2x);
кон
<span>V= I/t
</span>V= 450Байт / 10с = <span>45Байт/c</span>
Var x:real;
begin
x := -4;
while x <= 4 do begin
writeln('x=',x : 2 : 2,' y=', abs(x-2)+abs(x+1) : 2 : 2);
x := x + 0.5;
end;
readln; //задержка ввода
end.