При регистрации в компьютерной системе каждому пользователю выдается пароль состоящий из 15 символов и содержащий только символы е, г, э, 2, 0, 1, 3 и кодируется минимальным кол-вом битов. определите обьем памяти, отводимый этой программе для записи 30 паролей

7 символов, нумеруем от 0 до 65 в 2сс = 110, 3 бита нужно для хранения 1 символавсего 15*30*3 = 1350 бит = 168 байт

 

Вот! вообщем там много.

label 1, 2, 3, 4, 5, 6, 7, 8, 9;

var

  i, x, m, n, k: integer;

  s: real;

  a: array of real;

begin

  7:

  writeln('выберите действие: ');

  writeln('1)сложение');

  writeln('2)вычитание');

  writeln('3)умножение');

  writeln('4)деление');

  writeln('5)возведение в степень');

  writeln('');

  8:

  write('выбор > > > ');

  readln(x);

  writeln('');

  case x of

      1:

          begin

              write('введите количество слагаемых > > > ');

              readln(m);

              writeln('');

              s : = 0;

              setlength(a, m);

              for i : = 0 to m - 1 do

              begin

                  write('введите слагаемое № ', i + 1, ' > > > ');

                  readln(a[i]);

                  s : = s + a[i];

              end;

              writeln('');

              write(a[0]);

              for i : = 1 to m - 1 do

                  write(' + ', a[i]);

              write(' = ', s);

              writeln('');

              writeln('');

              1:

              writeln('выберите действие: ');

              writeln('1)заново');

              writeln('2)выйти');

              writeln('');              

              write('выбор > > > ');

              readln(n);

              case n of

                  1:

                      begin

                          writeln('');

                          writeln('');

                          goto 7;

                      end;

                  2: exit

              else

                  begin

                      writeln('');

                      writeln('ошибка! ');

                      writeln('попробуйте снова! ');

                      writeln('');

                      goto 1;

                  end;

              end;

          end;

      2:

          begin

              write('введите количество элементов > > > ');

              readln(m);

              writeln('');

              s : = 0;

              setlength(a, m);

              write('введите уменьшаемое > > > ');

              readln(a[0]);          

              for i : = 1 to m - 1 do

              begin

                  write('введите вычитаемое № ', i, ' > > > ');

                  readln(a[i]);                  

              end;

              writeln('');

              write(a[0]);

              s : = a[0];

              for i : = 1 to m - 1 do

              begin

                  s : = s - a[i];

                  write(' - ', a[i]);

              end;

              write(' = ', s);

              writeln('');

              writeln('');

              2:

              writeln('выберите действие: ');

              writeln('1)заново');

              writeln('2)выйти');

              writeln('');              

              write('выбор > > > ');

              readln(n);

              case n of

                  1:

                      begin

                          writeln('');

                          writeln('');

                          goto 7;

                      end;

                  2: exit

              else

                  begin

                      writeln('');

                      writeln('ошибка! ');

                      writeln('попробуйте снова! ');

                      writeln('');

                      goto 2;

                  end;

              end;                            

          end;

      3:

          begin

              write('введите количество множителей > > > ');

              readln(m);

              writeln('');

              s : = 1;

              setlength(a, m);

              for i : = 0 to m - 1 do

              begin

                  write('введите множитель № ', i + 1, ' > > > ');

                  readln(a[i]);

                  s : = s * a[i];

              end;

              writeln('');

              write(a[0]);

              for i : = 1 to m - 1 do

                  write(' * ', a[i]);

              write(' = ', s);

              writeln('');

              writeln('');

              3:

              writeln('выберите действие: ');

              writeln('1)заново');

              writeln('2)выйти');

              writeln('');              

              write('выбор > > > ');

              readln(n);

              case n of

                  1:

                      begin

                          writeln('');

                          writeln('');

                          goto 7;

                      end;

                  2: exit

              else

                  begin

                      writeln('');

                      writeln('ошибка! ');

                      writeln('попробуйте снова! ');

                      writeln('');

                      goto 3;

                  end;

              end;                          

          end;

      4:

          begin

              write('введите количество элементов > > > ');

              readln(m);

              writeln('');

              s : = 0;

              setlength(a, m);

              write('введите делимое > > > ');

              readln(a[0]);          

              for i : = 1 to m - 1 do

              begin

                  9:

                  write('введите делитель № ', i, ' > > > ');

                  readln(a[i]);

                  if a[i] = 0 then

                  begin

                      writeln('делить на 0 нельзя! ');

                      goto 9;

                  end;

              end;

              writeln('');

              write(a[0]);

              s : = a[0];

              for i : = 1 to m - 1 do

              begin

                  s : = s / a[i];

                  write(' / ', a[i]);

              end;

              write(' = ', s);

              writeln('');

              writeln('');

              4:

              writeln('выберите действие: ');

              writeln('1)заново');

              writeln('2)выйти');

              writeln('');              

              write('выбор > > > ');

              readln(n);

              case n of

                  1:

                      begin

                          writeln('');

                          writeln('');

                          goto 7;

                      end;

                  2: exit

              else

                  begin

                      writeln('');

                      writeln('ошибка! ');

                      writeln('попробуйте снова! ');

                      writeln('');

                      goto 4;

                  end;

              end;        

          end;

      5:

          begin

              write('введите число которое требуется возвести в степень > > > ');

              readln(k);

              write('введите необходимую степень > > > ');

              readln(m);

              writeln('');

              s : = exp(m * ln(k));              

              writeln('');

              writeln(k, '^', m, ' = ', s);

              writeln('');

              writeln('');

              5:

              writeln('выберите действие: ');

              writeln('1)заново');

              writeln('2)выйти');

              writeln('');              

              write('выбор > > > ');

              readln(n);

              case n of

                  1:

                      begin

                          writeln('');

                          writeln('');

                          goto 7;

                      end;

                  2: exit

              else

                  begin

                      writeln('');

                      writeln('ошибка! ');

                      writeln('попробуйте снова! ');

                      writeln('');

                      goto 5;

                  end;

              end;                  

          end

  else

      begin

          writeln('');

          writeln('ошибка! ');

          writeln('попробуйте снова! ');

          writeln('');

          goto 8;

      end;

  end;  

end.

Архитектор-3д визуализация проекта врач-выявление болезний у людей учитель-поиск материалов для подготовки курокам бтзнесмен-курс валют,обмен разнами планами по почте бухгалтер-работа с файлами секретарь-работа с файлами , назначентй каких небудь встречь писатель-выставление работ в свет , получение оценки произведения от разных людей художник-бизнес , рисование артов на заказ , шапки для каналов,аватарки и прочие. модельер-поис подходящих материалов для одежде,инфориация он их 2.ррограммист -то человек который что то программирует , создает новые прогарамы,игры.пользователь-чнловек который это использует оценивает,что то ищет в сети.