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

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.

Comments

А можно ли заменять 100 и 10 на другие числа к пимеру 4 и 2

---

эмм... я не понимаю ваш вопрос