Составьте программу ** языке паскаль для вычесления Y по формуле : Y=1-2X=3X^2-4X^3 , где...

Question

Составьте программу на языке паскаль для вычесления Y по формуле : Y=1-2X=3X^2-4X^3 , где X - натуральное число

Answer 1

Program program1;
var
x, y: integer;
begin
write('Введите X: ');
readln(x);
y := 1 - 2 * x - 3 * Sqr(x) - 4 * Power(x, 3);
writeln('Y = ', y);
end.