Информационное сообщение, состоящее из 20 символов, составляет объем в 40 байт. сколько бит отводится для кодирования одного символа?

40\20=2 байта на один символ 2 байта=16 битов на один символ

ответ:

type man = record

        name: string;

        surname: string;

        date: record

            day: integer;

            month: integer;

            year: integer;

        end;

    end;

 

var people: array [1..100] of man;

    i,n,_year: integer;

    _name: string;

 

begin

    write('enter number of man: ');

    readln(n);

    for i : = 1 to n do

    with people[i] do

    begin

        writeln('man[',i,']: ');

        write('enter name: ');

        readln(name);

        write('enter surname: ');

        readln(surname);

        write('enter birthday day/month/year: ');

        readln(date.day, date.month, date.year);

        writeln;

    end;

    write('enter year: ');

    readln(_year);

    for i : = 1 to n do

    with people[i] do

        if (date.year = _year) then

            writeln('name: ',name,' surname: ',surname);

    writeln;

    write('enter name: ');

    readln(_name);

    for i : = 1 to n do

    with people[i] do

        if (name = _name) then

        begin

            write(surname,' ',name);

            writeln(' ',date.day,'.',date.month,'.',date.year);

        end;

    readln;

end.

объяснение:

ответ:

объяснение:

program arrayof2;

const

    arraysize=10; {устанавливаем размер массива}

    maxrandom=5; {максимальное случайное число для заполнения массива}

var

    x : array[1..arraysize] of integer;

    i, sum2 : integer;

begin

    sum2: =0;

    for i: =1 to arraysize do x[i]: =random(maxrandom); {в цикле заполняем массив случайными числами от 1 до заданной maxrandom}

    for i: =1 to arraysize do writeln(x[i]); {выводим на печать массив, который получился (в это не требовалось, можно убрать эту строку)}

    for i: =1 to arraysize do if x[i]=2 then sum2: =sum2+1; {считаем двойки}

    if

        sum2 > 0

    then

        writeln('the quantity of 2 in this array is: ',sum2)

    else

        writeln('no any 2 in this array was found')

end.