Если среди чисел sin xⁿ (n=1, 2, ..., 30) есть хотя бы одно отрицательное число, то...

Question

Если среди чисел sin xⁿ (n=1, 2, ..., 30) есть хотя бы одно отрицательное число, то логической переменной t присвоить значение true, а иначе - значение false.

Answer 1

// PascalABC.NET 3.2, сборка 1383 от 09.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadReal;
  var t:=SeqGen(30,x,y->y*x).Select(y->sin(y)).Any(y->y<0);<br>  Writeln(t);
end.

Примеры
0.73
False

1.18
True

Comments

Это надо было решить с помощью операторов цикла, извиняюсь за неточность поставленного задания. Тем более я и сам уже разобрался)