Нужно определить состав трехзначного числа и записать в Pascal Abc

CategoriesГеометрияПредмет

Нужно определить состав трехзначного числа и записать в Pascal Abc

Ответы:

var

a,i:integer,

begin

write(Введите число:),

readln(a),

writeln(Единицы: ,a mod 10),

a:=a div 10,

writeln(Десятые: ,a mod 10),

writeln(Сотые: ,a div 10),

readln,

end.