На рисунке обезьяны четырёх родов

1)
#include <iostream>
using namespace std;

int main()
{
    int n;
    cout << "n = ", cin >> n;
    for (int i=10; i<100; i++) {
    if ((i/10==n)||(i%10==n)||(i%n==0))
       cout << i << " ";
    }
    return 0;
}

Пример:
n = 7
14 17 21 27 28 35 37 42 47 49 56 57 63 67 70 71 72 73 74 75 76 77 78 79 84 87 91 97 98

2.
#include <iostream>
using namespace std;

int main()
{
    for (int i=1; i<10; i++) {
    for (int j=0; j<10; j++)
       cout << i*100+j*10+i << " ";
    }
    return 0;
}

Результат:
101 111 121 131 ... 979 989 999

3.
#include <iostream>
using namespace std;

int main()
{
    int s = 0;
    for (int i=10; i<100; i++) {
    if ((i % 2 == 0)||(i % 10 == 7)) s +=i;
    }
    cout << "s = " << s;
    return 0;
}

Результат:
s = 2943

4.
#include <iostream>
using namespace std;

int main()
{
    int a, b, c, k = 0;
    for (int i=100; i<1000; i++) {
    a = i / 100;
    b = i / 10 % 10;
    c = i % 10;
    if ((a==b)||(a==c)||(b==c)) k++;
    }
    cout << "k = " << k;
    return 0;
}

Результат:
k = 252

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

begin
  Writeln('*** Исходный массив 8x6 ***');
  var c:=MatrRandom(8,6,-99,99);
  c.Println(4); Writeln(4*c.ColCount*'-');
  Writeln('Произведения элементов, больших -7, построчно:');
  foreach var row in c.Rows do
    Writeln(row.Where(x->x>-7).Aggregate(int64(1),(p,q)->p*q));
end.

Пример
*** Исходный массив 8x6 ***
 -50   8 -15  55  91 -53
 -25  82  33  65  19 -63
  99  49 -80  84  -2  68
 -52 -63 -58  23  89  58
  81 -45 -71 -85  34  66
 -35   2  23  26 -33 -56
  74  35 -35  21  15 -77
  40  87 -11  77 -74 -65

Произведения элементов, больших -7, построчно:
40040
3341910
-55417824
118726
181764
1196
815850
267960