Петя записал ip-адрес школьного сервера на листке бумаги и положил его в карман куртки. петина мама случайно постирала куртку вместе с запиской. после стирки петя обнаружил в кармане четыре обрывка с фрагментами ip-адреса. эти фрагменты обозначены буквами а, б, в и г. восстановите ip-адрес. в ответе укажите последовательность букв, обозначающих фрагменты, в порядке, соответствующем ip-адресу. a 2.19 б .50 в 5.162 г 22

ГАВБ если брать 3цифровой стандарт

С 1 и 3 вопросом больших проблем нет: в Юникод на 1 символ отводится 16 бит (2 байта), поэтому, если посчитать, что служебная информация  в файле отсутствует, текст занимает в 2 раза больше байт, чем в нем символов.
1) ответ d - 288 байт
3) ответ  b - 360000 символов

а вот со 2 проблемы. ASCII, или КОИ-7 - на 1 символ отводилось 7 бит. При этом национальные кодировки (в частности, русская) были возможны только вместо строчных латинских букв. Да и то, только прописные буквы.
Расширенный ASCII, или КОИ-8 - 8-битное кодирование.
В пословице, если написать ее правильно, 26 символов. Так что, ни один из ответов не подходит. Или условие неверно переписано, или это умышленный вопрос без ответа. Где-то так...
Или я безнадежно туплю, но сомневаюсь, что это так))

программа с комментариями, если все равно не понятно спрашивай

для проверки программы рекомендую n поставить где нибудь на 10 потому что вводить 1000 чисел с клавиатуры то еще удавольствие :))

числа можно вводить по одному или одной строкой через пробел

const

   n = 1000; // длина массива

var

   d : array of integer := new integer[n]; // объявляем и создаем массив

   a, b : integer;

   

begin

   // вводим числа в массив //

   writeln('введите данные в массив:');

   for var i := 0 to n-1 do begin

       read(a);

       d[i] := a;

   end;

   writeln('введен массив d=', d); // выводим массив на экран

   // переворачиваем данные в массиве                                //

   // для этого меняем первое с последним, второе с предпоследним    //

   // и так до середины                                              //

   for var i := 0 to (n div 2)-1 do begin

       a := d[i];

       d[i] := d[n-i-1];

       d[n-i-1] := a;

   end;

   writeln('переворачиваем массив d=', d); // выводим перевернутый массив

   write('числа у которых первая цифра больше последней:');

   // ищем и ввыводим числа с заданным условием //

   for var i := 0 to n-1 do begin

       // находим чему равна 1 цифра //

       b := d[i];

       repeat

           b := b div 10;

       until b < 10;

       if b > d[i] mod 10 then write(' ', d[i]); // сравниваем первую и последнюю цифры и ели первая больше то выводим число

   end;

end.