Pascal abc. определить позицию буквы в строке.

Без проверки того, есть ли символ в строке:   var     s: string;     c: char;     i: integer; begin write('введите строку: '); readln(s); write('введите символ: '); readln(c); write('символ "',c,'" встречается на позициях: '); for i: = 1 to length(s) do       if s[i] = c then write(' ',i) end. пример работы программы: введите строку: 12345789654621685798546323312125 введите символ: 5 символ "5" встречается на позициях: 5 10 17 21 32 с проверкой: var     s: string;     c: char;     i: integer; begin write('введите строку: '); readln(s); write('введите символ: '); readln(c); i: =1; while (s[i] < > c)and(i< length(s)) do     i: =i+1; if s[i] = c then     begin     write('символ "',c,'" встречается на позициях: ');     for i: = i to length(s) do             if s[i] = c then write(' ',i)     end else     writeln('данный символ в строке не встречается') end. пример работы программы: введите строку: 12312123 введите символ: 4 данный символ в строке не встречается

1. шестнадцатиричное представление переводим в десятичное. записываем 4a98 в расширенной форме по степеням основания (т.е. 16 в нашем случае): 2. шестнадцатиричное представление переводим в восьмеричное. поскольку , перевод удобно сделать через промежуточную двоичную систему. каждую шестнадцатиричную цифру заменяем четырьмя двоичными цифрами (так называемой тетрадой). 0100 1010 1001 1000 . 1011 1100 0010 (2) разбиваем двоичное число на триады (по три разряда) влево и вправо от десятичной точки и каждую триаду заменяем восьмеричной цифрой (они по написанию с десятичными). если разрядов для триады не хватает, дополняем их нулями слева для целой части и справа для дробной. 100101010011000.10111100001 (2)= 100 101 010 011 000.101 111 000 010= 45230.5702(8) ответ: 4a98.bc2(16)=19096.73486328125(10)=45230.5702(8)