1. сколько различных сообщений длиной 4 знака можно записать с
алфавита
{а, б, в, г, е, ж}
если слова должны начинаться с гласной буквы и заканчиваться на
согласную?
2. сколько существует пятизначных чисел, составленных из
нечётных цифр, в которых цифры не повторяются?
3. сколько сообщений длиной от 2 до 4 символов можно записать с
алфавита {0, 1, 2, 3}?

Function f16t2(s16: string): string; const   m: array['0'..'f'] of string=       ('0000','0001','0010','0011','0100','0101','0110','0111',         '1000','1001','','','','','','','','1010','1011','1100',         '1101','1110','1111');   m1: array['0'..'f'] of string=       ('0','1','10','11','100','101','110','111','1000','1001','',         '','','','','','','1010','1011','1100','1101','1110','1111'); var   s: string;   i: integer; begin   s16: =uppercase(s16);   s: =m1[s16[1]]+'''';   for i: =2 to length(s16) do s: =s+m[s16[i]]+'''';   f16t2: =copy(s,1,length(s)-1) end; var   s: string; begin   write('введите шестнадцатиричное число: '); readln(s);   writeln('в двоичной системе: ',f16t2(s)) end. тестовое решение: введите шестнадцатиричное число: 5ac8e2 в двоичной системе: 101'1010'1100'1000'1110'0010 если разбивка вывода по не нужна, можно чуть : function f16t2(s16: string): string; const   m: array['0'..'f'] of string=       ('0000','0001','0010','0011','0100','0101','0110','0111',         '1000','1001','','','','','','','','1010','1011','1100',         '1101','1110','1111');   m1: array['0'..'f'] of string=       ('0','1','10','11','100','101','110','111','1000','1001','',         '','','','','','','1010','1011','1100','1101','1110','1111'); var   s: string;   i: integer; begin   s16: =uppercase(s16);   s: =m1[s16[1]];   for i: =2 to length(s16) do s: =s+m[s16[i]];   f16t2: =s end; var   s: string; begin   write('введите шестнадцатиричное число: '); readln(s);   writeln('в двоичной системе: ',f16t2(s)) end. тестовое решение: введите шестнадцатиричное число: 5ac8e2 в двоичной системе: 10110101100100011100010