Задача в Pascal ABC Cреди первых двадцати членов последовательности xn=sin(πn/17) +...

Question

Задача в Pascal ABC Cреди первых двадцати членов последовательности xn=sin(πn/17) + cos(πn/12) найти номер первого отрицательного члена.

Answer 1

Программа для решения данной задачи:

Program n_1;

uses math;

var n: integer;

begin

   for n:=1 to 20 do if sin(Pi*n/17)+cos(Pi*n/12)<0 then break;</p>

   writeln(n);

end.

_____

В результате работы выводится число 11 (номер первого отрицательного члена последовательности)