Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.