Предмет: Информатика,
автор: parhachevi
Даны действительное число х и натуральное число n .Cоставьте программу которая вычисляет сумму sinx+sin(sin(x))...sin(sin(...sinx)...)
Ответы
Автор ответа:
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.
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.
Интересные вопросы
Предмет: Геометрия,
автор: Аноним
Предмет: Математика,
автор: nikitaurcenko11
Предмет: Физика,
автор: vladossix
Предмет: Геометрия,
автор: denis0912
Предмет: Алгебра,
автор: artem185