Ответ: 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; На нажатие кнопки добавить код.
Написать программу ‘нахождение суммы трехзначного числа’если это число разложить на множители — Правильный ответ на вопрос найдете ниже
22.01.2020 · 1