Question

составить на алгоритмическом языке PASCAL программу вычисления значений функции
ВАРИАНТ 5

Answer 1

var x,q,v,z:real;

begin

 writeln('введите q');

 readln(q);

   writeln('введите v');

 readln(v);

 x:=2;

 while x<=10 do begin

   z:=sin(x)+4*q*v*v*v;

   writeln('z=',z,' при x=',x);

   x:=x+0.77;

 end;

end.