При регистрации в компьютерной системе каждому пользователю выдается пароль, состоящий из 6 символов и содержащий только символы из 7-ми буквенного набора а, в, е, к, м, н, о. в базе данных для хранения сведений о каждом пользователе отведено одинаковое и минимально возможное целое число байт. при этом используют посимвольное кодирование паролей, все символы кодируются одинаковым и минимально возможным количеством бит. кроме собственного пароля для каждого пользователя в системе хранятся дополнительные сведения, для чего отведено 10 байт. определите объем памяти в байтах, необходимый для хранения сведений о 100 пользователях

Сначала найдем объем одного пароля. Для этого надо определить объем одного символа.
Мощность алфавита равна 7-ми, то есть каждый символ в пароле принимает одно из семи значений, значит объем одного символа равен 3 битам, т.к. 2^3=8, а двумя битами (2^2=4) семь символов закодировать нельзя.

Длина пароля - 6, объем пароля равен
6*3 = 18 бит

Каждый пароль кодируется одинаковым и минимально возможно целым количеством байт, разделим 18 на 8
18:8 = 3 (нужно именно целое число, два байта - это 2*8=16 бит, у нас 18 бит, значит требуется 3 байта).

Кроме пароля на каждого пользователя выделяется 10 байт. То есть общий объем сведений на одного пользователя равен 10+3 = 13 байт.

Объем данных о 100 пользователей равен 13*100 = 1300 байт.

[5261, 5281, 5333, 5351, 5393, 5399, 5407, 5441, 5443, 5449, 5483, 5519, 5531, 5557, 5573, 5591, 5623, 5641, 5647, 5669, 5683, 5689, 5711, 5717, 5737, 5779, 5791, 5801, 5807, 5821, 5827, 5843, 5849, 5861, 5867, 5869, 5881, 5939, 5953, 6011, 6037, 6053, 6073, 6079, 6091, 6101, 6121, 6143, 6163, 6211, 6217, 6257, 6271, 6277]
54

#Код программы на Ruby22
t=[]
primes = NumberHelpers::getPrimeNumbers(6288, nil)
primes.each do |pr|
    t << pr if pr >= 5232 and NumberHelpers::GetNumbersSum(pr) % 2 == 0
end
p t
p t.size

def getPrimeNumbers(max, primes)
        primes = [2] if primes == nil

        for i in (primes.last+1)..max
            f = false
            primes.each do |pn|
                f = (f or (i % pn==0))
            end
            primes<<i if not f
        end
        p primes.last
        return primes
    end

def GetNumbersSum(n)
        n = n.to_s.chars
        sum = 0
        n.each do |c|
            sum += c.to_i()
        end

        return sum
    end

Запись (record) &mdash; это пользовательский тип данных, котоорый может содержать поля с различными типами данных, например:

type
  schools = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
  students = record
     name, surname : string;
     age : byte;
     school : schools;
  end;

Для обращения к полям записи из главной программы необходимо разделять имя переменной типа Запись и поля, которое оно содержит, символом "." (точка). Например:

var
  student : students;

begin
  student.name := 'Иван';
  student.surname := 'Пупкин';
end.

Если необходимо получить или изменить значения нескольких полей записи, то удобнее использовать конструкцию with:

begin
  with student do begin
     name := 'Вася';
     surname := 'Пупкин';
     age := 12;
     school := 5;
  end;
end.