Наглядный способ представления числовых данных
Ответы
ответ
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байт
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.
Объяснение:
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос: