53,27,701
Но может быть это неверно
Var s: string;
i:integer;
begin
write('Введите текст: ');
readln (s);
for i:=1 to length(s) do
if s[i]='к' then write (i,' ');
<span>end.</span>
Во фразе 39 символов (включая пробелы и знаки препинания)
39*16 = 624 бит
///Pascal abc.
Самый простой способ (программа в файлике);
Проверка:
Введите число: 547
Результат: 745