9) Назовём натуральное шестизначное число N (100000< N < 999999) счастливым, если его цифры записаны в порядке неубывания. Найдите количество таких чисел. Программа на паскаль.

в одном байте восемь бит. следовательно 100/8=12.5

  ответ 12.5

смотри скриншот                                    

первая программа считает сумму входящих в строку цифр стоящих на местах с нечетными номерами, начиная с первой, если это буква то вместо нее берется 0(ноль)

результат выполнения

аб2в457где245*ж0247025020

2) 

var s, r: string; i: integer;

begin readln(s); r : = ''; for i : = 1 to length(s) do if s[i] < > 'c' then r : = r + s[i]; writeln(r); end.