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;
На нажатие кнопки добавить код.
plus=3; //на какое число далее будем прибавлять
start=0; //с какого числа начинаем сложение, и на каком сейчас
stop=33; //где кончаем прибавлять
while(status=true){
if(start<=stop){
//log это команда обрабатывающая результат если надо
function log(res){
start=start+res;
plus=start+res+3;
} // ну как там функции создаются...
log(start+plus);}else{
status=false;}}
P.s это что-то среднее между JS и PHP
32 кб = 256000 бит
8X = 256000 бит
X = 256000 бит / 8
X = 32000