программа на Паскале: выдать сумму наименьшим количеством купюр.

[Vanya77777]

Банкомат должен выдавать клиенту требуемую сумму, но при этом расходовать наименьшее количество купюр. Желательно также, чтобы на экране банкомата выводилось сообщение о том, каким именно купюрами и в каком количестве выдавалась запрошеная клиентом сумма. В банкомате имеются купюры по 1000, 500, 100 и 50 рублей.

[Alex11223]

Напишите програму на Паскале!!

Не гневайтесь, господин! Всё будет сделано в лучшем виде. Разрешите приступить к выполнению?

[D@rkD@iver]

за 100 рублей сделаю

[Vanya77777]

Сообщение от Alex11223

Не гневайтесь, господин! Всё будет сделано в лучшем виде. Разрешите приступить к выполнению?

Напиши если не трудно...

[Serge_Bliznykov]

запрос, конечно, абсолютно хамский...

Ваня, Вас вежливости не учили?

p.s. а задача проще паренной репки: используйте целочисленное деление с помощью DIV на номинал купюры - получите нужное число купюр данного номинала.
например,

  KolTysych := Summa div 1000; { узнаем, сколько нужно тысячных купюр }
  Summa := Summa mod 1000; {возьмём остаток: оставшуюся для выдачи сумму}
  KolPyatsot := Summa div 500;
  Summa := Summa mod 500;
и т.д.

[Vanya77777]

Сообщение от Serge_Bliznykov

запрос, конечно, абсолютно хамский...

Ваня, Вас вежливости не учили?

p.s. а задача проще паренной репки: используйте целочисленное деление с помощью DIV на номинал купюры - получите нужное число купюр данного номинала.
например,

  KolTysych := Summa div 1000; { узнаем, сколько нужно тысячных купюр }
  Summa := Summa mod 1000; {возьмём остаток: оставшуюся для выдачи сумму}
  KolPyatsot := Summa div 500;
  Summa := Summa mod 500;
и т.д.

Огромное спасибо!

[rus-xp]

А как на Delphi сделать не подскажите?

[Alex11223]

Также, как и на Паскале если речь о консольной программе.

[rus-xp]

На Delphi же по другому

Я просто в этом плохо разбираюсь ((

[Serge_Bliznykov]

TinMan,
Mad_Cat,
Smitt&Wesson,

Господа форумчане, ОЧЕНЬ попрошу не флудить и не переходить на личности!

Модератор.