В старшем разряде могут быть все цифры, кроме 0, т.е. 5 штук.
В младшем разряде должны быть цифры, формирующие нечетность итогового числа. Это 1,3, 5. Всего 3 штуки.
В остальных разрядах могут любые цифры из названных в условии.
Итого имеем: 5*6*6*6*3 = ?
Сами перемножите?
begin
var n := 10;
var x := 5;
var a := Arr(0, 1, 2, 3, 4, 5, 6, 7, 8, 9);
var b := a.Where(y -> y < x).ToArray;
b.Println;//0 1 2 3 4
end.
Количество последовательностей = 2^6 = 64
переходить по зебре и там где есть гаи
Const month:array[0..11] of string [15]=
('январь', 'февраль', 'март', 'апрель', 'май', 'июнь',
'июль', 'август', 'сентябрь', 'октябрь', 'ноябрь', 'декабрь');
var s:real; i,k:integer;
begin
s:=1000; k:=0;
while s<=1200 do
begin
s:=s*1.01;
k:=k+1;
end;
writeln('k = ',k,' - ',month[k mod 12+2]);
end.
Результат:
<span>k = 19 - октябрь</span>