Question

информатика, через Паскаль надо

Answer 1

var x, h, y, alpha : real;
begin
  write('k = ');
  read(x);
  write('h = ');
  read(h);
  y := 2;
  while y < 3 + 1E-9 do
  begin
    writeln('y = ', y, ', alpha = ', arccos(y / x) * 180 / pi : 0 : 3);
    y := y + h;
  end;
end.

Пример работы программы:
k = 5
h = 0.1
y = 2, alpha = 66.422
y = 2.1, alpha = 65.165
y = 2.2, alpha = 63.896
y = 2.3, alpha = 62.613
y = 2.4, alpha = 61.315
y = 2.5, alpha = 60.000
y = 2.6, alpha = 58.668
y = 2.7, alpha = 57.316
y = 2.8, alpha = 55.944
y = 2.9, alpha = 54.549
y = 3, alpha = 53.130