Текстовый файл A.txt содержит целые числа 19, 14 и 23, разделенные пробелами. Напишите программу для нахождения среднего арифметического этих чисел и запишите результат в файл B.txt в отдельные строки.

0,5 Мбайт

Объяснение:

V = K * i, где  

V - информационный объём изображения (размер файла, содержащего изображение)

K - количество точек (пикселей)

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

N = 2^i, где  

N - количество цветов в палитре

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

^ - знак степени

Дано:

К = 1024 х 512 = 524 288 пикселей

N = 256

Найти:

V

N = 2^i

256 = 2^i

i = 8 бит (подбор степени)

V = K * i = 524 288 * 8 = 4 194 304 бит

V = 4 194 304 бит = 4 194 304 / 8 = 524 288 байт = 524 288 / 1024 = 512 Кбайт = 512 / 1024 = 0,5 Мбайт

Не такое оно и сложное.
Главная проблема - то, что между словами может быть несколько пробелов.
Устраним её, написав функцию, которая оставляла бы между словами по 1 пробелу:

function RemoveSpaces(str : string) : string;
begin
   //Тут цикл for, переписанный через while
   var iter := 1;
   //Проходим по строке
   while (iter < str.Length) do
   begin
      //Если видим 2 пробела подряд, удаляем 1 и откатывает итератор.
      if (str[iter] = ' ') and (str[iter + 1] = ' ') then
         begin
            str := str.Remove(iter, 1);
            iter -= 1;
         end;
      iter += 1;
   end;
   RemoveSpaces := str;
end;

Теперь мы можем получить кол-во слов очень просто:

function CalcWords(str : string) : integer;
begin
   CalcWords := RemoveSpaces(str).Split(' ').Count();
end;

Т.е. мы делим строку на массив через пробелы, и считаем кол-во элементов массива.

полный код: https://pastebin.com/A63ggdWm