Дан массив заполненный по формуле, определить количество его положительных элементов кратных 3. y=cos(2x)

Допустим цифра ab a+b=3k k=1,2, кратность к 3 a=3b условие 2-ое получаем 3b+b=3k 4b=3k отсюда вывод вторая цифра кратная к 3, то есть 3,6,9 при b=6 и b=9 => цифра a получится двухзначним значит b=3, a=9 ответ 93 int x=0; for(int i=1; i< 10; i++)   for(int j=1; j< 10; j++)         if(i%3==0 & & i==3*j)               {x=i*10+j;                 cout< < x< < endl;           } можно оптимизировать for(int i=1; i< 4; i=i++)   if(i%3==0)   {x=i*31;                 cout< < x< < endl;           } 1й перебирает 99 вариантов 2й 3 варианта или просто можно сделать cout< < "93"< < endl;

// pascalabc.net 3.3, сборка 1583 от 25.11.2017 // внимание! если программа не работает, обновите версию! procedure fillrandom(var p: array of integer; a,b: integer); begin   var (k,n): =(0,p.length);   repeat           p: =arrrandom(n,a,b);           k+=1;       until p.distinct.count=n;   writeln('сделано ',k,' генераций массива') end; begin   var n: =readinteger('n=');   var (a,b): =readinteger2('укажите интервал значений элементов: ');   if b-a+1< n then writeln(' выполнить невозможно')   else begin       var x: =new integer[n];       fillrandom(x,a,b);       x.println       end end. примеры n= 15 укажите интервал значений элементов: 10 30 сделано 695 генераций массива 14 26 30 18 27 20 28 10 25 12 22 29 13 15 17 n= 15 укажите интервал значений элементов: -50 50 сделано 6 генераций массива 20 11 31 8 12 -47 16 -27 -21 -44 32 10 47 -36 46