Разложить по коробкам

Фокусник высыпает на стол 501 монет достоинством в 1 рубль и предлагает задачу: разложить деньги по девяти кошелькам так, чтобы можно было уплатить любую сумму от 1 рубля до 501 рубля, не открывая кошельков. Как можно разложить монеты?

Помогите, программа не работает, нужно разложить 4-хзначное число на цифры var a, a1, a2, a3, a4:integer; begin write ('vv ch') ; read (a) ; a1: = a/1000; a2: = a/100 mod 10; a3: = a/10 mod 10; a4: = a mod 10; write (a1, a2, a3, a4) ; end.

Разложить число на простые числа Например 20 = 2^2 + 5^1 Желательно с оптимизацией, чтоб для 6-значных чисел не считалось пол часа Программу можно писать на любом языке из C-подобных, Ruby, Pascal, VB и тп

Разложить число по основанию системы: 91050237 в 10

Как разложить 15 апельсин на 5 тарелок так, что бы было на всех тарелках разное количество