// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
Println('Введите последовательность целых чисел через пробел.');
var n := ReadSeqIntegerWhile('Последним введите число нoль. ->', t -> t <> 0).
Pairwise.Where(t -> t[0] * t[1] < 0).Count;
Println($'Последовательность меняет знак {n} раз(а).')
end.
Сначала решим данное уравнение
![7sin(2x)=1](https://tex.z-dn.net/?f=7sin%282x%29%3D1)
![sin(2x)=\frac{1}{7}](https://tex.z-dn.net/?f=sin%282x%29%3D%5Cfrac%7B1%7D%7B7%7D)
, n∈Z
, n∈Z
_________________________________________________
Составим программу для решения данного уравнения
___________
Program n_1;
uses math;
var n:integer; x:real;
begin
for n:=-5 to 5 do writeln((power(-1, n)*arcsin(1/7)/2+PI*n/2)*180/PI:0:20);
end.
_________________________________________________
Значения грдусной меры углов выводятся с точностью до 20 знаков после запятой
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
Writeln(ReadSeqInteger(n).Where(i->abs(i) mod 10=2).Max)
end.
<u>Пример</u>
18
-11 12 -4 -35 -32 -16 -23 -22 31 -10 2 -29 47 49 42 47 31 -44
42
Var i, q, n : integer;
begin
read(q, n);
for i:=10 to 99 do
if ((i mod q = 0) and (i div 10 + i mod 10 = n)) then
write(i, ' ');
<span>end.</span>
Тут не как не помочь попробуй через шифт