Question

Для заданных X и Y вычисляются значения функции Z=cos (N*X+Y), N = 1, 2, … 30 , записать в массив В значения N, при которых Z > 0, а в массив C значения N, при которых . Результат распечатать в виде:

Исходный массив:

Число элементов:

X = Y =

Массив В: Массив С:

Answer 1

//PascalABC.NET 3.1 сборка 1200
begin
    var b := new System.Collections.Generic.List<integer>();
    var c := new System.Collections.Generic.List<integer>();
    var x := ReadReal('x =');
    var y := ReadReal('y =');
    for var n := 1 to 30 do
    begin
        var z := cos(n * x + y);
        if z > 0 then b.Add(n);
        if z < 0 then c.Add(n);
    end;
   
    Println('X=' + x + ' Y=' + y);
    Println('Массив В:', b);
    Println('Массив C:', c);
end.