Question

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

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.