Определить из каких цифр состоит число цикл repeat

Question

Определить из каких цифр состоит число цикл repeat

Answer 1

Var x: integer;
begin
  readln(x);
  repeat
    write(x mod 10);
    write(',');
    x := floor(x / 10);
  until x < 1;
end.

Comments

Гениально! Низачто бы не понял что требуется сделать :)