Что может рассматриваться в качестве фрагмента текста? варианты: символ слово строка предложение абзац документ последовательность ! буду

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

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Объяснение:

ответ

18 байт

Объяснение:

личный код имеет 14 символов кожен с которых может иметь 36 значений(26 значений букв и 10 цифр).

36 значений можно закодировать в 6 бит (2^6=64 - входит и значение 36)

Личный код имеет 14 символов значит

6 бит * 14 = 84бит=8.5байт

код подразделений имеет 8 значений 5 первых которые буквы от А до F (6 значений)

6 значений это 3 бита(2^3=8 - входит 6)

Код имеет 5 первых букв

5*3=15бит=1.9байт

И трьохзначное число по три значения кожное з которых может быть максимум 9

9 значений это 4 бита

таких значений есть 3

3*4=12бит=1.5байт

Сумируем 1.5+1.9+8.5=11.9≈12байт

30-12=18байт