Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:066536 / 116Д
.txt Program kursach;
var i,n,x:integer;
c,b,p,a:real;
begin
writeln('введите n и x');
read (n,x);
b:=cos(abs(x));
p:=1;
c:=1;
for i:=1 to n do
Begin
c:=c*b;
a:=i/(i+1)-c;
p:=p*a;
end;
writeln(p);
end.
var i,n,x:integer;
c,b,p,a:real;
begin
writeln('введите n и x');
read (n,x);
b:=cos(abs(x));
p:=1;
c:=1;
for i:=1 to n do
Begin
c:=c*b;
a:=i/(i+1)-c;
p:=p*a;
end;
writeln(p);
end.