Введите число от 1 до 1000.Определить сколько тысяч,сотен,десятков,единиц.Заранее спасибо...

Question

Введите число от 1 до 1000.Определить сколько тысяч,сотен,десятков,единиц.Заранее спасибо

Answer 1

var a:integer;

begin

readln(a);

writeln(a mod 10,' edinic');

a:=a div 10;

writeln(a mod 10,' desyatkov');

a:=a div 10;

writeln(a mod 10,' soten');

a:=a div 10;

writeln(a,' tisyach');

end.