натуральное число n

[Артл]

вычислить произведение , тут корректное условие?

[Артл]

ну скажите пожалуйста, почему справа формула суммы, а задание найти произведение

[I-Gor]

Просто между дробями знак умножения, видимо, был обозначен точкой, и он либо не пропечатался, либо ты его не разглядел. Сабж следует воспринимать как:

[alex_fcsm]

Сообщение от Артл

ну скажите пожалуйста, почему справа формула суммы, а задание найти произведение

Потому что числитель и знаменатель каждого множителя состоит из суммы

mult:=1;
for m:=1 to N do
 begin 
 ch:=0;zn:=0;
  for i:=1 to m do
   begin
    ch:=ch+cos(i);
    zn:=zn+sin(i);
    end;
   sl:=ch/zn;
   mult:=mult*sl;
 end;

[Артл]

я сделал неправильно begin не поставил и начальное значен числит со знамен. перед циклом поставил, можете сказать почему их надо в цикле ставить?

[alex_fcsm]

Пока я ничего не видел в вашем исполнении

[Alter]

В левой половине, центральная строка разрывается, вероятно там и умножение.

[Артл]

var p,s1,s2,s:real;
    n,i,j:integer;
begin
write('n=');
readln(n);
p:=1;
s1:=0;
s2:=0;
for i:=1 to n do
begin
s2:=s2+cos(i);
s1:=s1+sin(i);
p:=p*s2/s1;
end;
write('p=',p:0:4);
readln
end.

ну вот так у меня было

[I-Gor]

См. пост ниже

Тут два цикла: один внутрений, другой внешний. Во внутреннем - вычисление сумм i-го числителя со знаменателем, во внешнем - собственно вычисление произведения. Строки s1:=0; s2:=0; и p:=p*s2/s1; нужно вынести из внутреннего цикла во внешний, т. е. написать:
...

for j:=1 to n do
begin
s1:=0; s2:=0;
for i:=1 to j do
begin
s2:=s2+cos(i);
s1:=s1+sin(i);
end;
p:=p*s2/s1;
end;

...

[alex_fcsm]

Артл I-gor А теперь сравните ваши решения) Даже скорее посмотрите на результат

Решения Артл отличается от I-gor тем что суммы числителя и знаменателя он накапливает все время выполнения программы. Действительно нет смысла пересчитывать сумму числителя если она равна предыдущая + очередное слагаемое. Надеюсь Артл пришел к этому сам, а не случайно так получилось