как найти количество сотен десятков и единиц у трехзначного числа в паскале

Question

как найти количество сотен десятков и единиц у трехзначного числа в паскале

полина одинцова Ученик (193), закрыт 12 лет назад

Answer 1

program prj1;
var A: integer;
begin
writeln('A = '); read(A);
writeln('едениц = ', A);
writeln('десятков = ', A div 10);
writeln('сотен = ', A div 100);
end;

PS: Казнить, нельзя помиловать! - Казнить нельзя, помиловать!

Соблюдайте знаки препинания))

Answer 2

Попробуйте это
program qqq;
var a:string;
begin
writeln('Введите 3-х значное число');
readln (a);
writeln ('Сотен: ',a[1],', Десятков: ',a[2],', Единиц: ',a[3]);
end.