Написать программу вычисления значения выражения: sin2*sin4*sin6*…*sin2N при заданном N...

Question

Написать программу вычисления значения выражения:
sin2*sin4*sin6*…*sin2N при заданном N (цикл «до»)

Comments

язык какой?

---

паскаль

---

через Repeat Until?

---

да

---

сейчас

---

Спасибо)

Answer 1

Var
n:integer;
x,p:real;
begin
    x:=2;p:=1;
writeln('N?');
readln(n);
       repeat
           p:=p*Sin(x);
           x:=x+2;
       until x>n*2;
writeln('p: ',p:4:2);
end.