Написать программу 'нахождение суммы трехзначного числа'если это число разложить **...

Question

Написать программу 'нахождение суммы трехзначного числа'если это число разложить на множители

Answer 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;
На нажатие кнопки добавить код.