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

2013-07-03T15:56:42+00:00

var

  x,sum:real;

  i,n:integer;

begin

  write ('X = ');

  readln(x);

  write ('N = ');

  readln(n);

  i:=1;

  sum:=0;

  repeat

    sum:=sum+cos((x+i)*pi/180);

    i:=i+1;

  until i>n;

  writeln ('Summa: ',sum);

  readln;

end.