Question

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

Answer 1

Плз. лучший ответ
////////////////////////////
program g;
var
a:Integer;
begin
writeln('Введите трёхзначное число');
readln(a);
writeln('');
writeln(a);
writeln(a div 100);
a:=a mod 100;
writeln(' ', a div 10);
a:= a mod 10;
writeln(' ', a);
end.