При шифровании текстовых сообщений в ASCII-кодировке в вычислительной системе используется алгоритм шифрования, при котором значение каждого следующего байта циклически сдвигается побитно вправо N раз, где N – число единичных битов в предыдущем зашифрованном байте. Первый байт сообщения не шифруется. Расшифруйте зашифрованный фрагмент текста, предоставленный в виде шестнадцатеричной последовательности байт:
73 2B 36 57 93 96 47 97

Принцип циклического одноразрядного сдвига иллюстрирует рисунок:

а)самый большой овал-танцоры

далее-актеры

и самый маленький- певцы 

в) 2 элемента. 

количество базовых цветов обозначим за n. из всех базовых цветов будет складываться какой то один цвет, соответственно количество всевозможных цветов можно вычислить по формуле n=2^(2*n)

var

b1,b2,i,n,p: integer;

begin

write('введите n'); readln (n); b1: =5; writeln ('1 элемент = ', b1);

p: =-1;

for i: =2 to n do

begin

p: =p*(-1);

b2: =p*b1-8;

writeln (i,' элемент = ', b2);

b1: =b2;

end;

end.

№1

program z1;

var n: integer;

begin

write ('введите число n: ');

readln(n);

if (n mod 2 = 0) and (n div 100 < 1) and (n > 9) then write('данное число является четным двузначным') else if  (n div 100 < 1) and (n > 9) then write ('данное число не четное двузначное');

end.

№2

program z2;

var a, b, c, k: integer;

begin

k: =0;

writeln ('введите числа a, b и c: ');

readln(a,b,c);

if a< 0 then k: =k+1;

if b< 0 then k: =k+1;

if c< 0 then k: =k+1;

write('количество отрицательных чисел: ',k)

end.