При регистрации в компьютерной системе каждому пользователю выдается пароль, состоящий из 25 символов и содержащий только символы С, Д, А, М, Е, Г, Э. Для хранения каждого пароля отведено одинаковое и минимальное возможное целое число байт. Все символы кодируют одинаковым и минимально возможным количеством бит. Кроме пароля, в системе хранятся дополнительные сведения, для чего отведено 14 байт на одного пользователя. Определите объем памяти в байтах, необходимый для хранения данных о 200 пользователях. В ответе укажите только целое количество байт

program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.

var a: integer;

begin readln(a); if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число') else writeln('периметр не двузначное число'); end.

program month;

    uses crt;

    var a: integer;

begin

    clrscr;

    write('vsatvte chislo');

    read(a);

    if (a=12) or (a=1) or (a=2) then write('zima')

                  else  if (a=3) or (a=4) or (a=5) then write ('vesna')

                            else  if (a=6) or (a=7) or (a=8) then write ('leto')

                                      else write('oseni');

    repeat until keypressed;

end.