Надо что то аналогичное придумать ​

Короче если по правилу  надо все делить на два пока не дойдешь до одного тогда тока Остаток от деления записываем в обратном порядке. Получаем число в 2-ой системе счисления: 0164739 = 012 Для перевода дробной части числа последовательно умножаем дробную часть на основание 2. В результате каждый раз записываем целую часть произведения.
0.895*2 = 1.79 (целая часть 1)
0.79*2 = 1.58 (целая часть 1)
0.58*2 = 1.16 (целая часть 1)
0.16*2 = 0.32 (целая часть 0)
Получаем число в 2-ой системе счисления: 1110
0.895 = 11102
В итоге получаем число: 01.11102 и получиться решить пример. И все цифры надо делить только на два пока до ОДНОГО не дойдешь! 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 uses crt;    var s,g:string;  i,kol:integer;    begin     clrscr;     g:='AEIOU';     Write('Текст: ');readln(s);     Writeln('Исходный текст: ');     Writeln(s);     For i:=1 to length(s) do     begin     if s[i] in ['0'..'9'] then s[i]:=' ';     If pos(s[i],g)>0 then inc(kol);     if s[i] in ['a'..'z'] then s[i]:='?';     end;     Writeln('Кол-во прописных гласных - ',kol);     Writeln('Преобразованный текст: ');     Writeln(s);     readkey  end.