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

Question

Информатика

Елюся

18 сентября, 00:34

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

+5

Ответы (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.