Как найти все цифры числа паскаль

type ts = 0..9; //тип цифры
chislo=array[1..nmax] of ts;//массивы-числа
procedure nul(var a:chislo); //обнуление числа
var i:integer;
begin
for i:=1 to nmax do
a[i]:=0;
end;
function kol(const a: chislo):integer;//определение длины числа
var i:integer;
begin
i:=nmax;
while(a[i]=0)and(i>1) do
i:=i-1;
kol:=i;
end;
procedure mult(var a,c:chislo);//собственно умножение
var i,m:integer;
    p:0..9;
    v:byte;
begin
nul(c);
m:=kol(a);
for i:=1 to m do
 begin
  p:=0; //перенос
  v:=a[i]*3+p+c[i];//текущее число
  c[i]:=v mod 10;//пишем остаток
  p:=v div 10;//новый перенос
 end;
c[i+1]:=p;//последний перенос
for i:=1 to nmax do
a[i]:=c[i]; //запомним полученное число
end;
procedure print(var a : chislo); //печать длинного числа
var i:integer;
begin
for i:=kol(a) downto 1 do
write(a[i]);
end;
var a,b,c:chislo;i,k:integer;
begin
a[1]:=3;
b[1]:=3;
for i:=2 to 512 do
 begin
  mult(a,c);
  for k:=1 to nmax do
  a[k]:=c[k];
 end;
print(c);
end.

Чтобы обработать отдельные цифры числа можно использовать операции mod (получения остатка от деления) и div (целочисленное деление).

Например, дано число 4087.
Остаток от деления этого числа на 10 равен 7 (это младшая цифра числа).
Чтобы получить следующую цифру сначала выполним целочисленное деление числа на 10, получим 408.
Остаток от деления 408 на 10 равен 8 (это вторая цифра).

Чтобы перебрать все цифры этот процесс можно продолжать пока при целочисленном делении не получится ноль.

1 Программа вычисляет произведение цифр, заданного пользователем трёхзначного числа

Решение:

program line_6;
uses crt;
var
  a, pr: integer;
begin
  clrscr;
  write('a = '); readln(a);
  pr:=1;
  pr:=pr*(a div 100);
  pr:=pr*(a mod 10); a:=a div 10;
  pr:=pr*(a mod 10);
  write('Произведение цифр = ', pr);
  readkey;
end.

2 Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, вывести все его цифры, начиная с самой правой (разряда единиц).

var
  N: integer;

begin
  write('N = ');
  readln(N);
  writeln;

  writeln('Цифры числа (справа налево):');
  while N > 0 do { <-- Выполняем цикл, пока число больше 0 }
  begin
    write(' ', N mod 10); { <-- выводим остаток деления на 10 }
    N := N div 10 { <== находим целую часть от деления на 10 }
  end;

  readln
end.

3 Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, найти количество и сумму его цифр.

var
  N, c, Sum, Q: integer;

begin
  write('N = ');
  readln(N);
  writeln;

  Q := 0; { <== сначала количество цифр равно 0 }
  Sum := 0; { <== сумма цифр тоже равна 0 }

  while N > 0 do
  begin
    c := N mod 10; 
    inc(Q); { <== увеличиваем количество на 1 }
    Sum := Sum + c; { <== увеличиваем сумму цифр }
    N := N div 10
  end;

  writeln(' количество цифр: ', Q);
  writeln(' сумма цифр: ', Sum);
  readln
end.

4 Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, найти число, полученное при прочтении числа N справа налево.

var
  N, M: integer;

begin
  write('N = ');
  readln(N);
  M := 0; { <== начальное значение нового числа }
  while N > 0 do 
  begin
    M := 10 * M + N mod 10; { <== изменяем новое число }
    N := N div 10 { <== удаляем последнюю цифру исходного числа }
  end;
  writeln;
  writeln(' число справа налево: ', M);
  readln
end.