Склавиатуры вводится целое положительное число. определить сколько в нем цифр и найти сумму цифр этого числа паскаль

Var    n, sum, count: integer; begin     read(n);     sum : = 0;     count : = 0;         while n > 0 do       begin         sum : = sum + n mod 10;         n : = n div 10;         count : = count + 1;     end;         writeln(sum);     writeln(count); end.

1.из условия «для кодирования секретного сообщения используются 12специальных значков-символов. при этом символы кодируются одним и тем же минимально возможным количеством бит. следует, что для кодирования используется алфавит, мощность которого равна n=12 (все символы алфавита равнозначны). тогда информационный вес символов одинаков и вычисляется по формуле хартли i=log212=4 бита. тогда информационный объем сообщения, согласно алфавитному подходу, измеряется по формуле v=i*k. значение i мы уже нашли, а k по условию равно 256.получаем: v=4 (бита)×256 (символов) =1024 (бита) = 128 (байта).2.всего используется 26 букв + 10 цифр = 36 символов для кодирования 36 вариантов необходимо использовать 6 бит, так как 2^5=32< 36< 2^6=64, т.е. пяти бит не хватит (они позволяют кодировать только 32 варианта), а шести уже достаточно таким образом, на каждый символ нужно 6 бит (минимально возможное количество бит).полный номер содержит 7 символов, каждый по 6 бит, поэтому на номер требуется 6 x 7 = 42 бита.по условию каждый номер кодируется целым числом байт (в каждом байте – 8 бит), поэтому требуется 6 байт на номер (5x8=40< 42< 6x8=48), пяти байтов не хватает, а шесть – минимально возможное количество на 20 номеров нужно выделить 20x6=120 байт. ответ: 120 байт.3. всего клеток 8х8 = 64. для кодирования 1 клетки необходимо 6 бит (2^6=64). в записи решения будет описано 12 клеток (11 ходов+начальная позиция). объем информации записи 12х6 = 72 бита = 72: 8 = 9 байт.ответ: 9 байт.4. 76 символов = 76 байт, 76 байт * 8 = 608 бит. ответ: 608 бит. 5. на один символ было 16 бит, стало 8, таким образом: 8x=16x-240, отсюда: x=30 символов6. 4096 = 1024⋅4, 16 бит = 2 байта, 8 бит = 1 байт было в unicode: 212 * 2 = 213 байт стало в windows-1251: 212 байт. объём файла уменьшился на 213 байт - 212 байт = 212 байт = 4 кбайта ответ: 4.

program z1;

  var a,b,k,i: integer;

    begin

      k: =0;

      write('ââåäèòå êîîðäèíàòó à: ');

      read(a);

      write('ââåäèòå êîîðäèíàòó b: ');

      read(b);

      for i: =a to b do begin

                        if i mod 3=0 then begin

                                            writeln(i);

                                            k: =k+1;

                                          end;

                        end;

      writeln('количество чисел кратных трём равно ',k);

      readln;

    end.