1.Вычислить сумму ряда s= cos(x)+cos(x)cos(x)+...+cos(x)cos(x)...cos(x), для x и n

Var n, i: Integer;
    x, sum, temp, cosx: Double;
begin
ReadLn(x, n);
sum:=0;
cosx:=cos(x);
temp:=1;
for i:=1 to n do begin
    temp:=temp*cosx;
    sum:=sum+temp;
end;
WriteLn(sum);
end.

Семён Тришанков · Answer 2 · 2019-04-30 23:35:39+3:00

Семён Тришанков 2019-04-30 23:35:39

Var x, n, i, j, r: Integer;
    sum, temp: Double;
begin
ReadLn(x, n);
sum:=0;
r:=cos(x);
for i:=1 to n do begin
    temp:=r;
    for j:=1 to i do temp:=temp*temp;
    sum:=sum+temp;
end;
WriteLn(sum);
end.

Ванек Баржин 2019-04-30 23:45:34

почему синус когда надо косинус

Степан Фаттяхдинов 2019-04-30 23:46:41

а блок схему воплотить сможите

Валентина Машевич 2019-04-30 23:55:28

Alviko, если Вы таковой разумный, напишите свое решение! Я свое написал.

Егор Артемин 2019-04-30 23:57:10

Program cikal1 ;var n, i : integer; x, s : real;begin s := 0; read (n); for i := 1 to n do s := s + sin (i); writeln (s);end.

Margarita Cokolova 2019-04-30 23:59:49

я сам сделал анологичное задание но верно ли оно

О проекте

1.Вычислить сумму ряда s= cos(x)+cos(x)*cos(x)+...+cos(x)*cos(x)*...*cos(x), для x и n

Добро пожаловать!

1.Вычислить сумму ряда s= cos(x)+cos(x)cos(x)+...+cos(x)cos(x)...cos(x), для x и n