задача паскаль: Разложить (выдать) n-ую сумму денег по купюрам

[Flower2]

Вообщем, вы хотите снять n-ую сумму денег. Программа должна выдать эту сумму по купюрам. Например, 3320. Оно будет выдаваться так : 2000, 1000, 200, 100, 20. Номиналы купюр : 10000, 5000, 2000, 1000, 500, 200, 100, 50, 20, 10, 5, 2 , 1.

[BDA]

Если не преследовать цели минимальности количества купюр:

const
  a : array[1..13] of integer = (10000, 5000, 2000, 1000, 500, 200, 100, 50, 20, 10, 5, 2, 1);
var
  i, j : integer;
  n : longint;
begin
  read(n);
  for i := 1 to 13 do
  begin
    for j := 1 to n div a[i] do
      writeln(a[i]);
    n := n mod a[i];
  end;
end.

[Flower2]

Я пыталась сделать, потом мне учитель сказал, что нужно делать через константу. А для чего она нужна?

[Stilet]

нужно делать через константу.

BDA тебе и так через константу.

А для чего она нужна?

Например для удобного заведения данных в момент проектирования кода.

[Flower2]

А как она работает не пойму, счетчик какой то

[BDA]

Чтобы понять, как она работает, нужно знать, что такое цикл for, операции div и mod. Вы это знаете?

[doktor255]

Конечно не знает, раз спрашивает.
Flower2 Учится пробовал? Книжки например читать? Знания сами собой в голову не просочатся. И форум тут не помощник.

[SlavaSSU]

по-моему, код от BDA как раз и минимизирует количество купюр

[BDA]

SlavaSSU, в общем случае не минимизирует. Допустим, имеются купюры 10, 9, 1, а сумма равна 18. Моя программа выдаст 10 1 1 1 1 1 1 1 1, а минимальное количество достигается при ответе 9 9.

[SlavaSSU]

я имел в виду, при данных номиналах монет можно жадно набирать и все норм получится. В общем случае знаю, что так делать нельзя