Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры, стоящие рядом. пример: введите целое число: введите целое число: 1232 1224 нет. да. через ветвление, while, repeat, until

Var A:longint;
    k:byte;
Begin
k:=0;
WriteLn('Введите целое число: ');ReadLn(A);
While A div 10 <> 0 do
   Begin
   if (A div 10) mod 10 = A mod 10 then k:=1;
   A:=A div 10
   End;
if k = 1 then Write('Да.')
else Write('Нет.')
End.

Шаг 1.

В алфавите, согласно условию задачи, ровно 15 символов.

Шаг 2.

Давайте посмотрим, сколько нужно минимум выделить бит на 1 символ из алфавита, состоящего из 15 символов.

Если бы мы выделили 1 бит информации, то он бы смог закодировать 1 символ алфавита, состоящего не более чем из 2 символов. А у нас их 15 Значит, 1 бита мало.

Если выделить 2 бита, то закодировать можно символ в алфавите максимум из 4 символов. Мало.

Если выделить 3 бита, то закодировать можно символ в алфавите максимум из 8 символов. Мало.

Если выделить 4 бита, то закодировать можно символ в алфавите максимум из 16 символов. Достаточно.

Значит, для кодирования 1 символа данного алфавита достаточно 4 бит.

Шаг 3.

1 пароль состоит из 15-ти символов.

1 символ "весит" 4 бита.

Значит, 15 символов будут "весить" 15х4=60 бит.

Шаг 4.

1 пароль по условию кодируется минимально возможным целым количеством байт.

Сколько байт нужно для хранения пароля из 60 бит?

7 байт мало, так как 7 байт = 7х8 = 56 бит.

8 байт — в самый раз: 8 байт = 8х8=64 бита.

Следовательно, для хранения одного пароля нужно 8 байт.

Шаг 5

Один пароль "весит" 8 байт.

У нас — 20 пользователей (и 20 паролей соответственно).

Следовательно, они "весят" 8х20 = 160 байт.

Шаг 6

Выделено было 400 байт под пароли.

Чисто на хранение, согласно п.5, было использовать 160 байт.

Значит, осталось на дополнительную информацию300-160=140 байт.

Шаг 7

140 дополнительных байт имеется подо все пароли.

Всего паролей — 20.

Значит, под каждый дополнительно выделяется 140/20=7 байт.

ответ: по 7 байт дополнительно выделено для хранения одного пароля.

Объяснение:

1) есть некоторые знаки которые нельзя использовать в имени файла, это знаки маски например такие как "? *" и знаки что используются в системе каталогов например ": \". При попытке создать файл с неправильными знаками в имени будет выдано соответственное сообщение об ошибке, так что запоминать этот набор не надо
2) файлы на диске хранятся в древовидной системе каталогов, начиная от корневого каталога обозначенного буквой диска
3) редактировать, создавать, удалять, копировать, вырезать, вставить, переименовать, поменять атрибуты, права, владельцев и тп
4) вопрос не ясен.
5) действие по умолчанию, то что происходит если дважды кликнуть на объект