Из непрозрачного мешочка вынимают шарики с номерами и известно, что информационной сообщение ономере шарика несет 5 битов информации.определите количество шариков в мешочках. решите .

Что бы закодировать информационный объем одного шарика нужно 5 бит. по формуле 2^i=n где i - и есть иформационный объем одного элемента а n - мощность алфавита(количества символов или как в нашем случаи количество шариков)  2^5=32 ответ: 32 шарика

Уберите char. после begin не ставится точка с запятой. в else не нужна точка с запятой, если там один оператор. после of точка с запятой не ставится. в перечне значений case не нужно =. вывод по ходу программы не удобный. в последнем выводе выводите переменные просто как буквы, это ошибка. вот, исправил основные ошибки. program abc; var a,b: integer; begin writeln('введите количество десятков лет'); readln(a); case a of 1: write('десять'); 2: write('двадцать'); 3: write('тридцать'); 4: write('сорок'); 5: write('пятьдесят'); 6: write('шестьдесят'); 7: write('семьдесят'); 8: write('восемьдесят'); 9: write('девяносто'); else write('число введено неверно') end; writeln('введите количество едениц лет'); readln(b); case b of 1: write('один'); 2: write('два'); 3: write('три'); 4: write('четыре'); 5: write('пять'); 6: write('шесть'); 7: write('семь'); 8: write('восемь'); 9: write('девять'); else write('число введено') end; write(a, b, ' лет'); end.

Program ggl; это название программы var  n, i, sum : integer;   описание переменных a : array [1..1000] of integer; описание массива а (он целочиленный, в интервале от 1 до 1000) begin  readln (n); начало программы, запрос значение переменной n   sum : = 0; присвоение переменной sum значение 0 begin  readln (n);   sum : = 0;   for i : = 1 to n do  begin      a[i] : = random (100);       write (a[i], ' ');       sum : = sum + a[i];     end;     begin характеризует начало новой подпрограммы. она -  цикл, в котором идет перебор чисел от 1 до значения n, элементам массива a присваиваются рандомные числа от 1 до 100, элементы массива выводятся на экран. после идет подсчет значения переменной sum (причем сначала находится, например, первый элемент массива, а уже после значение переменной sum, после второй элемент массива и он прибавляется к прежнему значению переменной sum). подпрограмма кончается. writeln;     write (sum / n); end.вывод значения деления переменной sum на переменную n. конец всей программы.