находит одно решение а нужно все возможные

[specnazkin]

Дано натуральное число N(N<=99). Получить все способы выплаты суммы N с помощью монет достоинством 1,5,10,20 копеек.
пользуясь языком Delphi
вот так я прогал
но уменя находит одно решение а нужно все возможные варианты
заранее спасибо

program Monets7;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows;




const
  Monet : array[1..4] of Integer = (1,5,10,20);

var
  N,K,i : ShortInt;
begin
  i := 4;
writeln (('vvedite neobhodimiu summu(ot 0 do 99):'));
  readln(n);
  repeat
    begin
      K := N div Monet[i];
      if K >= 0 then
        writeln (('trebuetsya '),K,(
          ' monet dostoinstvom '),Monet[i]);
      N := N mod Monet[i];
      i := i-1;
    end
  until (N = 0);
  readln;
end.

[Serge_Bliznykov]

можно через рекурсию сделать...
хотите, набросаю?

[kazzz]

Он этого хочет, ему сдавать скоро) Набросай пожалуйста!

[specnazkin]

набросай пожалуйста)))))))

желательно попросче распишите))))))))))

[Serge_Bliznykov]

program Monets7;


{$APPTYPE CONSOLE}

uses SysUtils;

const
  MaxK = 4;
  Monet : array[1..MaxK] of Integer = (1,5,10,20);

type
  TQMonet = array[1..MaxK] of Integer;


procedure ShowAllVariants(S : integer; QM : TQMonet; BeginK : integer );
var i: integer;
begin
  {если достигли нужного результата, напечатаем вариант решения}
  if S=0 then begin
    for i:=1 to MaxK do
      if QM[i]>0 then Write(QM[i],' x "',Monet[i],'" + ');
      WriteLn;
  end
  else
    for i:=BeginK to MaxK do
      if S>=Monet[i] then
      begin
        {увеличим счётчик использования монеты с i-м номиналом}
        Inc(QM[i]);
        {покажем все варианты, где сумма уже уменьшена на величину использованной монеты}
        ShowAllVariants(S-Monet[i], QM, i);
        {восстановим счётчик монет, т.к все варианты с этой монеткой отработаны при рекурсивном вызове ShowAllVariants}
        Dec(QM[i]);
      end;
end;

var
  N, i : ShortInt;
  QMonet : TQMonet;
begin
  writeln (('vvedite neobhodimiu summu(ot 0 do 99):'));
  readln(n);

  {обнулим массив, где будем получать варианты}
  for i:=1 to MaxK do
      QMonet[i] := 0;


  ShowAllVariants(n, QMonet, 1);

  readln;
end.

По моему, не очень сложно...

[specnazkin]

спасибо))))