110110110 = 100000000(2) + 10000000(2) + 100000(2) + 10000(2) + 100(2) + 10(2) = 2^8 + 2^7 + 2^5 + 2^4 + 2^2 + 2 = 256 + 128 + 32 + 16 + 4 + 2 = 438
Const n: array[1..10] Of string = ('один','два','три','четыре','пять',
'шесть','семь','восемь','девять','нуль')
;
Var b,c: string;
i,j: integer;
Begin
b := '1234567890';
Write ('Введите цифру / число : ');
read (c);
For i:=1 To length(c) Do
Begin
j := pos(c[i],b);
write (n[j],' ');
End;
<span>End.</span>
Ответ = число сочетаний из 27 по 6 = 27*26*25*24*23*22 / 1*2*3*4*5*6 = 296010