написать программу на паскале: вычислить 9 значение функций y=8x^3-7x+8 для значения x, изменяющихся от 1 до 9

Question

Танюта

28 декабря, 19:58

+1

Ответы (2)

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

Афросин · Answer 1

Program n1;

var x:integer;

y:real;

begin

for x:=1 to 9 do

begin

y:=x * (8*x*x-7) + 8;

writeln (y) ;

end;

end.

Владимирыч · Answer 2

Program z1;

var x, y:integer;

Begin

for x:=1 to 9 do

begin

y:=8*x*x*x-7*x+8;

writeln ('f (', x,') = ', y) ;

end;

end.