Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.