Дано 3-х значное число 121,разбить его ** три числа 1,2,1

Question

Дано 3-х значное число 121,разбить его на три числа 1,2,1

Comments

решить задач

---

решить задачу*

---

Программу

---

на пример вот про сумму: program summa

---

var n,s integer begin s:=0

---

Через паскаль сделать надо

---

Сделаешь?

Answer 1

Var
  a, b, c, n, d: integer;

begin
  write('Введите трехзначное число: ');
  readln(n);
  a := n div 100;
  d := n mod 100;
  b := d div 10;
  c := d mod 10;
  writeln(n, '=', a, ',', b, ',', c)
end.

Тестовое решение:

Введите трехзначное число: 121
121=1,2,1