М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
SolDPriCe
SolDPriCe
10.04.2022 21:21 •  Информатика

11. Для регистрации на сайте необходимо ввести следующую информацию: логин, состоящий из букв английского алфавита, длиной 15 символов (всего используется 13 различных букв); пароль, состоящий из 8 цифр (от 0 до 7), длиной 14 символов; пол (М или Ж). Каждая такая учётная запись кодируется минимально возможным и одинаковым (целым) количеством байт (при этом используют посимвольное кодирование, и все символы логина кодируются одинаковым и минимально возможным количеством бит, все символы пароля кодируются одинаковым и минимально
возможным количеством бит, и пол также кодируется минимально возможным количеством бит).
Определите наибольшее количество учётных записей, которые можно зарегистрировать в компьютерной системе, если для хранения сведений об этих записях выделено 2 Кбайта.

👇
Ответ:
Gosha22228888
Gosha22228888
10.04.2022

Объяснение: решение на картинке ----------->


11. Для регистрации на сайте необходимо ввести следующую информацию: логин, состоящий из букв англий
4,6(62 оценок)
Открыть все ответы
Ответ:
ruslananabok
ruslananabok
10.04.2022
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите текст:');
  var p:=Pos('.',s); // позиция точки
  if p>0 then s:=s[:p]; // отбросим до конца все, начиная с точки
  Writeln('Найдено слов: ',s.MatchValues('\b[A-ZА-ЯЁ][a-zа-яё]+\b').Count)
end.

Примеры
Введите текст: TesT И тольКо Тест Сегодня15 января язык Pascal версия 3-3.
Найдено слов: 2

Введите текст: И сидит, сидит зловещий Ворон черный Ворон вещий.
Найдено слов: 2

Введите текст: Почему же мы с тобой   Пишем с буквы прописной: Таня, Ваня, Мила, Нина, Коля, Петя и Ирина.
Найдено слов: 9
4,7(96 оценок)
Ответ:
dwgerashenko
dwgerashenko
10.04.2022

{Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64}

{Copyright (c) 1993-2017 by Florian Klaempfl and others}

{Target OS: Linux for x86-64}

program test;

Uses Math;

   

   const N = 15;

   

   var

       A : array[1..N] of integer;

       i, mx, k : integer;

   

begin

   Randomize;

   {Генерация и печать массива}

   for i := 1 to N do begin

       A[i] := Random(50);

       write(A[i], ' ');

       if A[i] mod 2 = 1 then mx := A[i]

       end;

   writeln;

   

   

   for i := 1 to N do

       if A[i] mod 2 = 1 then

           if A[i] < mx then begin

               mx := A[i];

               k := i

               end;

   writeln('Число - ', mx, ', позиция - ', k);

end.

Результат выполнения программы:


Написать код на Паскале для решения задачи. Дан массив из 15 целых чисел. В заданном массиве найти м
4,8(39 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ