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.