Задача про монеты Опции

[Lodar']

задача такая: Cоставить программу определяющюю сдачу с рубля наименьшим количеством монет.
Используемые монеты: 1коп, 2коп, 3коп, 5коп, 10коп, 15коп, 20коп, 50коп

[volvo]

Lodar', задача решается гораздо проще - по вышеописанному алгоритму:

program Pr1;
const
  Nmonet=8;
type
   Tmassive=array[1..Nmonet] of integer;
const
  monet:Tmassive = (50, 20, 15, 10, 5, 3, 2, 1);

var
  price: integer;
  count, total: integer;
  i: integer;
begin
  writeln('Vvedite LLEHY TOBAPA');
  readln (price);

  i := 1;
  while price > 0 do begin
    count := 0;
    while price >= count * monet[i] do inc(count);
    dec(count);
    if count > 0 then begin
      writeln(count, ' coins of ', monet[i]);
      dec(price, count * monet[i]);
      inc(total, count);
    end;
    inc(i);
  end;
  writeln('total coins: ', total);
  readln;
end.