Question

Задание на картинке, в паскальABC.

Answer 1

var
  a, b, h: real;

begin
  readln(a, b, h);
  writeln('x':6, '  F(x)':6);
  while (a <= b) do
  begin
    writeln(a:6, sqr(sin(a)):6:3);
    a := a + h;
  end;
end.