Вопрос Помогите решите задачу по программированию на Pascal

[kaxo]

Дано натуральное четырёхзначное число x. Определить сколько в нём единиц, десятков, сотен, тысяч.

 

[вадим909090]

Можно строками сделать, просто перевести в строку число, а там, раз число натуральное, все просто, каждый символ - часть ответа. Но нужно, видимо, с использованием div и mod. Div - деление без остатка, mod - остаток от деления. X mod 10 даст тебе кол-во единиц. Потом делаешь x:=x div 10; теперь x mod 10 даст тебе кол-во десятков, и так далее пока число не закончится