** отрезке [1;2] с шагом 0,1 протабулировать функцию: cos2/x-2sin1/x+1/x

Question

На отрезке [1;2] с шагом 0,1 протабулировать функцию: cos2/x-2sin1/x+1/x

Answer 1

Program z;
Var s:real
   i:integer;
Begin
For i:=0 to 10 do
 Begin
  s:=cos2/(1+i/10)-2sin1/(1+i/10)+1/(1+i/10);
   writeln(s);
 end;
End.