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

[Артл]

все понятно

[andrewpalkin]

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

но ответ суммы отличается , как же правильно все-таки?

Правильно вот это :

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;

Дам один совет , правильность вычислений проверять надо в ручную , а не программно , если не уверен , что она работает на все 100%

[alex_fcsm]

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

все понятно

У меня обе программы выдали одинаковый результат, возможно разница в округлении при выводе

[Артл]

да у меня тоже щас одинаково, сначала просто в посте игоря было по-другому

[alex_fcsm]

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

да у меня тоже щас одинаково, сначала просто в посте игоря было по-другому

А мой пост не хотите смотреть?

[Артл]

я все смотрел)

у меня появился вопрос, вот первой множитель равен 0 и потом он умножается на следующие и почему ответ не ноль, что-то я не понимаю

[alex_fcsm]

1. Идите в отладку
2. Где это первый множитель равен 0?

cos1/sin1 - это что ли 0?