Объяснение:
Комбинация бука получается DECAFB
Комбинация цыфр:
011 11 100 0101100
Начинаем с первых чисел
Число 011 это по таблице это у нас число D
Следующая число у нас 11 по таблице это буква E
Следующая цифра у нас 100 тут подходит два варианта это B i C
Если мы подставим B то в дальнейшем у нас не совпадет
Поэтому ставим С
Следущие цифры 00 по табл.это А
Следущая 101 по табл это F
И последние 3 цифры это 100 по таблице это как раз та буква которая не подошла это B
И того получилось DECAFB
1)
var
i, n, a: integer;
begin
readln(n);
for i:= 1 to n do
begin
writeln('Введите число a: ');
readln(a);
if a mod 10 = 4) and (a > 10) and (a < 100) then
writeln(a);
writeln('Введите кол-во чисел n: ');
writeln('В данный момент n = ', n);
readln(n);
if n = 0 then break;
end;
end.
2)
var
i, n, a, z, min: integer;
begin
readln(n);
z:= 0;
for i:= 1 to n do
begin
writeln('Введите число a: ');
readln(a);
z:= z + 1;
if (i <> 0) and (z = 1) then
min:= a;
if (a < min) then min:= a;
writeln('Введите кол-во чисел n: ');
writeln('В данный момент n = ', n);
readln(n);
if n = 0 then break;
end;
writeln(min)
end.
1)
var
i, n, a: integer;
begin
readln(n);
for i:= 1 to n do
begin
writeln('Введите число a: ');
readln(a);
if a mod 10 = 4) and (a > 10) and (a < 100) then
writeln(a);
writeln('Введите кол-во чисел n: ');
writeln('В данный момент n = ', n);
readln(n);
if n = 0 then break;
end;
end.
2)
var
i, n, a, z, min: integer;
begin
readln(n);
z:= 0;
for i:= 1 to n do
begin
writeln('Введите число a: ');
readln(a);
z:= z + 1;
if (i <> 0) and (z = 1) then
min:= a;
if (a < min) then min:= a;
writeln('Введите кол-во чисел n: ');
writeln('В данный момент n = ', n);
readln(n);
if n = 0 then break;
end;
writeln(min)
end.
DECAFB
Объяснение:
Следующая комбинация разбивается на следующие блоки: 011 11 10 00 101 100, следовательно получаем буквы D E C A F B