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.

ca1b62fc1cb1b9b60603f8a0f12eefd5.docx