Напишите алгоритм, который выводит все трёхзначные числа, квадрат записи которых оканчивается тремя цифрами, которые как раз и составляют рассматриваемое трёхзначное число. входных данных у алгоритма нет.

Var i : Integer;
Begin
  For i:=100 to 999 do
    If i=(sqr(i) mod 1000) then Writeln(i,' * ',i,' = ',sqr(i));
end.

Результат:
376 * 376 = 141376
625 * 625 = 390625

1) 40 * 60 1500 = 3600000 всего символов в книге
В стандартной кодировке 1 символ - 1 байт, значит
3600000 * 1 байт = 3600000 байт / 1024 = 3515,625 Кбайт / 1024 = 3,4 Мбайт
2) 1,25 Кбайт = 1280 байт = 10240 бит
10240 бит / 2048 символов = 5 бит -  глубина кодирования 1 символа
N = 2^i
N = 2^5 = 32 символа в алфавите
3) Использован двоичный код, значит 1 символ несет 1 бит информации
4) В русском алфавите 33 буквы - N
N = 2^i
33 = 2^i
i = 6 бит - несет 1 буква информации в русском алфавите
В слове математика 10 букв
10 * 6 бит = 60 бит информации несет слово МАТЕМАТИКА
5) N = 2^i
16 = 2^i
i = 4 бит несет 1 буква информации в 16-символьном алфавите
512 символов * 4 бит = 2048 бит / 8 = 256 байт = 0,25 Килобайт составляет это сообщение
6) 3 * 25 * 60 = 4500 всего символов
1125 байт *  8 = 9000 бит все сообщение
9000 / 4500 = 2 бита - 1 символ
N = 2^i = 2^2 = 4 символа в этом алфавите
7) N = 2^i
32 = 2^i
i = 5 бит - 1 символ
256 * 5 = 1280 бит информационный объем всего сообщения
1280 бит / 8 = 160 байт / 1024 = 0,15625 Килобайт
8) 0,5 Кбайт = 4096 бита - информационный вес сообщения
4096 / 2 = 2048 бит - на одной странице
2048 / 256 = 8 бит используется для кодирования 1 символа
N = 2^i = 2^8 = 256 симовлов в алфавите
9) N = 2^i
256 = 2^i
i = 8 бит  = 1 байт глубина кодирования 1 символа
30 * 70 * 5 = 10500 символов всего
10500 символов *  1 байт = 10500 байт все сообщение
10500 байт / 1024 = 10,25 Килобайт - все сообщение
10) N = 2^i
256 = 2^i
i = 8 бит  = 1 байт глубина кодирования 1 символа
1/32 Мбайт = 32 Кб = 32768 байт
32768 байт / 1 байт = 32768 символов в тексте

N = X1*256 + Y1*16 + Z1
2N = X2*256 + Y2*16 + Z2
X1 + Y1 + Z1 = X2 + Y2 + Z2

Во-первых, X1 < 8, иначе число 2N в 16-ной записи станет 4-значным.
Можно написать такую программу поиска этих чисел
Начало
k = 0 ' Это счетчик чисел, которые мы ищем
Цикл по X1 от 1 до 7
    Цикл по Y1 от 0 до 15
        Цикл по Z1 от 0 до 15
            N = X1*256 + Y1*16 + Z1
            M = 2*N
            X2 = Int (M / 256)
            Y2 = Int ((M - X2*256) / 16)
            Z2 = M Mod 16
            Если (X1+Y1+Z1 = X2+Y2+Z2) And ((X1 = 2) Or (Y1 = 2) Or (Z1 = 2), То
                k = k + 1
            Конец Если
        Конец цикла по Z1
    Конец цикла по Y1
Конец цикла по X1
Вывод k
Конец