Question

Разработать блок схему алгоритма и написать программный код на языке паскаль

Answer 1

Const
n=10;
var
i,j,m,x:integer;
s,p:real;
begin
   readln(x);
readln(m);
p:=1;
for j:=1 to m do
   begin
      for i:=1 to n do
         s:=s+cos(x)/sin(x);
      p:=p*s;
   end;
writeln(p:4:2);
end.