Var x,y: real;
begin
write('Введите x: ');
readln(x);
y:=x*x*x+2.5*x*x-x+1;
writeln('Ответ ',y);
<span>end.</span>
<span>PNG поддерживает три основных типа растровых изображений:</span>Полутоновое изображение (с глубиной цвета 16 бит)Цветное индексированное изображение (палитра 8 бит для цвета глубиной 24 бит)<span>Полноцветное изображение (с глубиной цвета 48 бит)</span>
Нужно написать программу. Держи:
П0 1 0 / {x} 1 0 * ИП0 1 0 0 / - x=0 18 1 С/П 0 С/П
Выводит 1, если совпадают, и 0, если нет.