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; На нажатие кнопки добавить код.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку