Найти все цифры в записи целого трёхзначного числа

mod - берет остаток от деления

div - берет целое число от деления (отбрасывает остаток)

По этим функциям можно найти все цифры любого числа. Вот программа которая находит из трёхзначного.

Var a, b, c, z:integer;

Begin

Readln (z) ;

a:=z mod 10;

b: = (z mod 100) div 10;

c: = a div 100;

Writeln (a, ' ', b, ' ', c, ' ') ;

End.

Program cifry;

Var a, x1, x2, x3:integer;

Begin

Write ('введите трехзначное число') ;

Readln (a) ;

X1:=a div 100;

X2: = (a div 10) mod 10;

X3: = a mod 10;

Writeln ('цифра сотен числа ', а,' равна ', x1) ;

Writeln ('цифра десятков числа ', а,' равна ', x2) ;

Writeln ('цифра единиц числа ', а,' равна ', x3) ;

Readln;

End.