решить задачу №8 b) на pascal

решить задачу №8 b) на pascal

  • var n, b, i:integer;
    x, a, c, d:real;
    begin
    writeln(Введите n и x в градусах);
    read (n, x);
    a:=1;
    b:=1;
    for i:=1 to n do
    begin
    b:=b*i;
    a:=a*(1+sin(i*x*2*pi/360)/b);
    end;
    writeln(a);
    end.
  • Проверенные ответы содержат наджную, заслуживающую доверия информацию, оценнную командой экспертов. На «Знаниях» вы найдте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы — это лучшие из лучших.