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

+ 0 -

Patimatka

05 апр. 2015 г., 1:28:20 (9 лет назад)

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.

+ 0 -

Diana0704991

05 апр. 2015 г., 2:27:46 (9 лет назад)

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

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

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