Сообщение что книга интересующий ученика расположена на 5 полке несет 3 бита информации сколько полок на стеллаже

225 полок на стеллаже я так думаю

В ЧЕМ ОТЛИЧИЕ ПОЛЬЗОВАТЕЛЯ ОТ ПРОГРАММИСТА Если кто-то работает с компьютером, то это не значит, что он программирует или умеет программировать. Пользователь потому и называется пользователем, что он просто использует возможности компьютеров и программ, и чаще всего далек от их создания. Задача же программиста создавать программы для тех, кому они нужны, т. е. для пользователей. Причем системные программисты в основном создают программы для управления компьютерами, а программисты прикладные , прежде всего, пишут программы полезные массовому пользователю. В принципе, всех, кто работает с компьютером можно разделить на три категории: 1. Программисты, создающие программы для облегчения труда других пользователей. 2. Программирующие пользователи, которые создают программы для решения своих задач, облегчения собственного труда. 3. Непрограммирующие пользователи, желающие решать свои задачи, используя уже существующие программы, не занимаясь программированием.

Var
  A: array [1..10] of integer;
  i, count: byte;
  mult: integer;
begin
writeln('Сгенерированный массив.');
randomize;
for i := 1 to 10 do
begin
  A[i] := random(11) + 10;
  writeln(A[i]:4);
end;

count := 0;
mult := 1;

for i := 1 to 10 do
  if A[i] mod 3 = 0 then
  begin
    count := count + 1;
    mult := mult * A[i];
  end;
 
if (count = 1) or (count = 0) then  
  writeln('Количество элементов кратных 3 = ', count)
else
  writeln('Количество элементов кратных 3 = ', count, ' Произведение этих элементов = ', mult);
readln;
end.