Ребят,долго мучаюсь с этой задачкой-То что то не оъявлю,то лишние впишу(Задача на цикл.

[человек13]

Условия в файле
Там сумму нужно найти

program Nikita;



var
k,s,p1,p:integer;
sum:real;
x:integer;
const n =10;
begin
p:=1;
p1:=1;
s:=0;
for k:=1 to 10 do
begin
x:=p/4;
p:=p*sin(x);
p1:=p1*k;
sum:=s+p/p1;
end;
end.

[Sweta]

Вы уверены, что формула правильная?
Кроме того, я полагаю, что х=(число ПИ)/4.
а остальное...
в числителе дроби сумма sin(x)+(sin(x) в квадрате) + (sin(x)в кубе)+..sin(x) в 10 степени,
А в знаменателе к неизменна, т.е 1 ? Какой тогда ее смысл?
Вот если бы дробь была за знаком суммы тогда другое дело. и все выглядело бы где-то так

begin
x:=3.14;
s:=0;
p=1;
for k:=1 to 10 do
begin
p:=p*sin(x);
p1:=p/k;
sum:=s+p1;
end;
end.