Ответы и объяснения

  • Kitsu
  • почетный грамотей
2012-11-26T12:25:02+00:00

var x,y:real;

i,n:integer;

begin

readln(x);

readln(n);

y:=sin(x);

if n>1 then

for i:=1 to n do 

y:=y+sin(y);

writeln(y);

end.