Вычислить значение у по формуле у-5 х³-8 х²+х-6 усли вводимое х нечетное вычислить пока у<6000

Question

Информатика

Никитична

27 ноября, 14:44

Вычислить значение у по формуле у-5 х³-8 х²+х-6 усли вводимое х нечетное вычислить пока у<6000

+3

Ответы (1)

Знаете ответ на вопрос?

Енюха · Answer 1

Program dfgd;

var y:real;

x:integer;

begin

write ('х=') ;

readln (x) ;

if (x mod 2) 0

then begin y:=5*sqr (x) * x+8*sqr (x) - x+6;

if y>6000

then writeln ('y>6000')

else writeln ('y=', y) ;

end

else writeln ('x - четное число') ;

end.