1)
огурцы помидоры
москвичи
трактарист
дети
ученики
Готово, даже удалось избежать создания самого массива)
Var a, b, c, S1, fin: integer;
S1 := edit1.text;
a := copy(S1,1,1);
b := copy(S1,2,1);
c := copy(S1,3,1);
fin := a + b + c;
edit2.text := fin;
На нажатие кнопки добавить код.
Якось так...... ну я не знаю, чи правильно
по формуле N=![2^{i}](https://tex.z-dn.net/?f=+2%5E%7Bi%7D+)
32=![2^{i}](https://tex.z-dn.net/?f=+2%5E%7Bi%7D+)
32=![2^{5}](https://tex.z-dn.net/?f=2%5E%7B5%7D+)
=![2^{i}](https://tex.z-dn.net/?f=+2%5E%7Bi%7D+)
откуда i=5 бит
Получается что 1 буква алфавита несет 5 бит