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

Question

Маля

18 апреля, 23:48

+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.