Как разбить число на цифрыКак разбить число на цифры: 3241 => 3,2,4,1 (Pascal)

[Banderas123]

Надо хотябы для 4 значного числа. Я то писал код, но он слишком большой и не всегда работает.

[Gorychev]

Я то писал код, но он слишком большой и не всегда работает

Покажите.
Самое простое - число преобразовать в строку, а так как строка - это массив символов, можно получить значение каждого из элементов этого массива.

[Андрюха_udm]

var n,digit:integer;
begin
  readln(n);
  while (n>0) do
  begin
   digit:=n mod 10;
   n:=n div 10;
  end;
end.

в процессе получения цифры (digit) из исходного числа(n), делаешь все необходимые с ней действия, как то: занесение в массив, вывод на экран и т.д.

[Banderas123]

Спасибо, сделал

s:string;
c:integer;
begin
readln(c);
str(c, s)