Көмектесідерші, 2 тапсырма 1, 2, 3.

Var x, i, h1, h2, h3, h4, h5, h6, s1, s2: integer;
begin
       readln (x);
       h1 := x div 100000;
       h2 := x mod 100000 div 10000; 
       h3 := x mod 10000 div 1000; 
       h4 := x mod 1000 div 100; 
       h5 := x mod 100 div 10; 
       h6 := x mod 10; 
       s1 := h1 + h2 + h3; 
       s2 := h4 + h5 + h6; 
       if (s1 = s2) then writeln('Счастливый') 
                      else writeln('Несчастный:)');
        readln;
end.

Вот, ошибка в целочисленном делении) Советую такое на листочке расписывать: 123321 и обводить что нужно взять, что в каком порядке откидывать...)

1)От 100 до 900 существует 801 число, для представления 801 различных чисел нужно 10 бит, 2 в 10-й степени =1024, а 2 в 9-й степени только 512. 
128х5х10=6400 бит=800 байт
2)Известно, что с бит можно закодировать 2N различных чисел. Поскольку 26 < 119 < 27 и для каждого спортсмена число бит одинаково, то для записи каждого из 119 номеров необходимо 7 бит памяти. Поскольку промежуточный финиш велосипедистов, то информационный объем сообщения составит 70*7 бит=490 бит.
7)Решение: N = 10 х 5 + 4 х 8 = 82        N = 2i  = 128         i = 7ответ: 7 бит
10)бщее количество ключей на всех уровнях 16*8=128 (чет много=)) 
Нам надо найти, в какую степень надо возвести 2, чтобы получить 128. 
2^x=128 
x=7 
Вот собственно и ответ. 7 бит

Все, что смогла :)