7515575
14.02.2023 18:22

Компьютерная книга имеет 150 страниц. каждая строка содержит до 60 символов в каждой строке. если объем информации в книге составляет 15805, определите, сколько разных символов используется в алфавите​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
yaach1
29.06.2021 04:25
<!DOCTYPE html>
<html>
  <head>
    <style>
      body {
       text-align: center;
      }
      form {
       display: inline-block;
       width: 40%;
      }
      label {
       display: block;
      }
      textarea {
       width: 100%;
       height: 300px;
      }
      button {
       width: 45%;
      }
    </style>

    <script>
      function DeShifr()
      {
        let Text   = document.getElementById("shifr").value;
        let L      = Text.length;
        let NeChet = Text.substr(0,L/2+L%2);
        let Chet   = Text.substr(L/2+L%2,L/2);
        let DeShifr = "";
        for (let i = 0, c = 0, n = 0; i < L; i++)
        {
          DeShifr += (i%2?Chet[c++]:NeChet[n++]);
        }
        document.getElementById("DeShifr").innerHTML = DeShifr;
      }
    </script>
  </head>
  <body>
    <form>
      <label for="shifr">Введите зашифрованный тест сообщения:</label>
      <textarea id="shifr"></textarea>
      <button type="button" onCLick="DeShifr()">Расшифровать</button>
      <div id="DeShifr"></div>
    </form>
  </body>
</html>
0,0(0 оценок)
Ответ:
ivchencov767
14.07.2020 08:20
Программа со статическим массивом:

Var
  M: array[1..32767] of real;
  Min: real;
  N, i: integer;
Begin
  Write('N = ');ReadLn(N);
  if (N <= 0) then
    WriteLn('Количество элементов должно быть положительно')
  else
  begin
    Write('Введите элементы массива в количестве ',N,' штук');
    For i:= 1 to N do
      Read(M[i]);
    Min := M[1];
    For i:= 2 to N do
      if (M[i] < Min) then
        Min := M[i];
    WriteLn;
    Write('Получившийся массив:');
    For i:= 1 to N do
    begin
      M[i] := M[i] / Min;
      Write(' ',M[i]);
    end;
  end
End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота