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

Question

Танюта

11 ноября, 14:33

+1

Ответы (2)

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

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

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.

Афросин · Answer 2

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.