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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.