1. определите количество информации в кбайтах книги, содержащей 128 страниц, на каждой странице 64 строк, в каждой строке 64 знака. 2.определите количество времени в минутах, которое потребуется для передачи информации объемом 360 кбайт по сети, скорость которой равна 768 бод. 3.напишите последовательно в пятеричной системе счисления все целые числа, начиная от 0, пока сумма цифр этих чисел не будет равняться 100

1) Каждая буква - это 1 байт в кодировке ANSI Windows.
Букв всего 128*64*64 = 2^7*2^6*2^6 = 2^19.
Это 2^19 байт = 2^19 / 2^10 = 2^9 Кбайт = 512 Кбайт

2) Скорость 768 бод = 768 бит/сек = 768/8 = 96 байт/сек.
360 Кбайт = 360*2^10 байт будут переданы за
360*2^10/96 = 120*2^10/2^5 = 120*2^5 сек = 2*2^5 = 2^6 = 64 мин

3) 0, 1, 2, 3, 4, 10, 11, 12, 13, 14, 20, 21, 22, 23, 24, 30, 31, 32, 33, 34,
40, 41, 42, 43, 44

Рекурсивный подход.(Символы тоже удаляет)
function grad(s:string):string;
var
i:byte;
detect:boolean;
begin
while i < length(s) - 2 do
begin
inc(i);
if (s[i] = s[i+1]) and (s[i] = s[i+2]) then {проверка последовательности из 3 елементов}
begin
delete(s,i,3); {если да - удаляем их}
detect:=True; {логическая переменная регистрирует изменение строки}
end;end;
if detect = True then
s:=grad(s); {если строку изменили , проверяем не появились ли там еще последовальности}
grad:=s; 
end;

var
s:string;
begin
readln(s);
writeln(grad(s));
end.

Const l = 5;
var
a: array[1..l] of integer;
d: array[1..l] of real;
i, otr, k, m: integer;
begin
otr:=0; k:=0; m:=0;
//считаем массив а
for i:=1 to l do
  begin
    readln(a[i]);
    //если ввели положительное число,увеличим перем. otr на 1
    if a[i] < 0 then
      inc(otr);
    //если ввели отрицательное число,увеличим перем. k на 1
    //и к переменной m прибавим элемент
    if a[i] > 0 then
      begin
        inc(k);
        inc(m, a[i]);
      end;
  end;
//заполним массив d
for i:=1 to l do
  //если индекс четный, присвоим элементу otr
  //иначе присвоим среднее арифметическое
  if i mod 2 = 0 then
    d[i] := otr
  else
    d[i] := m/k;
end.