Миша написал на бумажке пароль от своей почты. но, прибираясь в комнате, выкинул эту бумажку со всем остальным мусором. однако, он помнил правила, по которым он составлял пароль: 1) пароль должен состоять из шести цифр 2) в пароле должна присутствовать пара одинаковых цифр, например 156889 3) слева направо цифры никогда не уменьшаются сколько комбинаций подходят под заданные параметры?

5 если не ошибаюсь

например:234456

ответ: 145663

Объяснение:

Я бы посоветовал вместо прямого перевода 2 <-> 10 работать через 16ричную систему счисления. Алгоритмы те же, вычислений меньше, значит меньше и ошибок. А двоичные значения 16 цифр очень легко запомнить.

Гляди, как просто получится

1.

96 = 60h = 0110 0000b

53 = 35h = 0011 0101b

74 = 4Ah = 0100 1010b

80 = 50h = 0101 0000b

122=7Ah=  0111 1010b

 

2.

   1010011b = 0101 0011b = 53h = 5*16+3=83

   10011101b= 1001 1101b = 9Dh = 9*16+13 = 157

   11011111b= 1101 1111b = DFh = 13*16+15= 223

 

3.

  1010011b +   110101b = 0101 0011b + 0011 0101b = 53h + 35h = 88h = 1000 1000b

11011111b + 1111010b = 1101 1111b + 0111 1010b =  DFh+7Ah = 159h= 0001 0101 1001b

 

 

Замечание1. Для решения последнего примера нужно, конечно, знать таблицу сложения 16-ричных цифр.

 

Замечание2 Напомню перевод 10 ->16, повторюсь, алгоритм тот же, что и 10->2

Например

122/16 = 7 (ост 10), значит 122=7Аh

 

Замечание3 И последнее, в практической деятельности 2-ичная система практически не используется, профессионалы, если нужно, работают с 16-ричной(это связано с тем, что байт, так уж случилось, равен 8 бит).

 

Ну, вроде всё.

 

function Len(x1,y1, x2, y2:real):real;

begin

   Len := sqrt( sqr(x1 - x2) + sqr(y1 - y2) );

end;

 

var

  x1,x2,x3,x4,x5, y1, y2, y3, y4, y5:real;

begin

   write('x1 = '); readln(x1);

   write('y1 = '); readln(y1);

   write('x2 = '); readln(x2);

   write('y2 = '); readln(y2);

   write('x3 = '); readln(x3);

   write('y3 = '); readln(y3);

   write('x4 = '); readln(x4);

   write('y4 = '); readln(y4);

   write('x5 = '); readln(x5);

   write('y5 = '); readln(y5);

   writeln('P = ', Len(x1,y1,x2,y2) + Len(x2,y2,x3,y3) + Len(x3,y3,x4,y4) + Len(x4,y4,x5,y5) + Len(x5,y5,x1,y1));

end.