10. Написать программу вычисления функции

(Надо на Pascal)

1, 2)
Сначала надо разделить IP на байты, по 8 бит:
1 )11001100.11100010.10100110.01101001
2) 11011001.10100001.01100011.00111010

Теперь переводим каждый байт в десятичную сс, получаем:

1) 204.226.166.105
2) 217.161.99.58

3, 4) 
Переведем каждый байт в двоичную сс:

3) 10111100.1011.11000010.100000
4) 11110000.1111.0.10

Добавим незначащие нули, чтобы кол-во бит в каждом байте было равно восьми:

3) 10111100.00001011.11000010.00100000
4) 11110000.00001111.00000000.00000010

Уберем точки:

3) 10111100000010111100001000100000
4) 11110000000011110000000000000010

#include <iostream>
#include <cstring>

using namespace std;

int main() {
    int n,m;
    cin >> n >> m;
    int a[n][m], sn[n], sm[m]; //sn - сумма строк, sm  - сумма столбцов
    memset(sn, 0, n*sizeof(int));
    memset(sm, 0, m*sizeof(int));
    for(int i = 0; i < n; i++)
        for(int j = 0; j < m; sn[i]+= a[i][j], sm[j]+= a[i][j], j++)
            cin >> a[i][j];
    cout << endl;
    for(int i = 0; i < n; i++) cout << sn[i] << ' ';
    cout << endl << endl;
    for(int i = 0; i < m; i++) cout << sm[i] << ' ';
    cout << endl << endl;
    for(int i = 0; i < n; i++) {
        for(int j = 0; j < m; j++)
            cout << a[i][j] << ' ';
        cout << endl;
    }   
}