Даны действительное число х и натуральное число n .Cоставьте программу которая вычисляет...

0 голосов
42 просмотров

Даны действительное число х и натуральное число n .Cоставьте программу которая вычисляет сумму sinx+sin(sin(x))...sin(sin(...sinx)...)


Информатика (76 баллов) | 42 просмотров
Дан 1 ответ
0 голосов
Правильный ответ
Var S,x:real;
    n:integer;
Begin
Write('x = ');ReadLn(x);
Write('n = ');ReadLn(n);
S:=0;
For n:= 1 to n do
    Begin
    x:=Sin(x);
    S:=S+x;
    End;
WriteLn('S = ',S);
End.

(6.6k баллов)