Сотрудникам компании электронную карту, на которой записаны их личный код, номер подразделения (целое число от 1 до 120) и дополнительная информация. личный код содержит 11 символов и может включать латинские буквы (заглавные и строчные буквы различаются) и десятичные цифры. для хранения кода используется посимвольное кодирование, все символы кодируются одинаковым минимально возможным количеством битов, для записи кода отводится минимально возможное целое число байтов. номер подразделения кодируется отдельно и занимает минимально возможное целое число байтов. известно, что на карте хранится всего 28 байтов данных. сколько байтов занимает дополнительная информация?

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.

сначала взять кирпич-взять цемент- налить уемент- положить на цемент кирпич. и т.к

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.