Question

Написать программу вычисления значений функции в заданных точках (Turbo Pascal) Очень нужно

Answer 1

var
  i: integer;
  a: real;

begin
  writeln('Enter a:');
  readln(a);
 
  for i := 1 to 7 do
    writeln('d(', i, ') = ', a / i - tan(i));
end.

Answer 2

writeln('x=',x:3:3,' f=',sin(x)/cos(x)-x*x*x:3:3); x:=x+0.1; end; readln; end.

Answer 3

так правильно будет?