40 пунктов за решение!!!!!Написать прогу на паскале вот по этому заданию

в фотке

1

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

  • Kitsu
  • почетный грамотей
2012-11-26T16:25:31+04: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.