Напишите,пожалуйста,простенькую задачу ** паскале В кассе имеются денежные купюры...

Question

Напишите,пожалуйста,простенькую задачу на паскале
В кассе имеются денежные купюры достоинством m 1,5,10,50,100,500 рублей,необходимо выплатить сумму n наименьшим кол-вом

Answer 1

Var n,z,k:integer;
begin
write('Введите сумму: ');
readln(n);
k:=500;
z := n div k;
n := n mod k;
if z>0 then writeln(k,' * ',z);
k:=100;
z := n div k;
n := n mod k;
if z>0 then writeln(k,' * ',z);
k:=50;
z := n div k;
n := n mod k;
if z>0 then writeln(k,' * ',z);
k:=10;
z := n div k;
n := n mod k;
if z>0 then writeln(k,' * ',z);
k:=5;
z := n div k;
n := n mod k;
if z>0 then writeln(k,' * ',z);
k:=1;
z := n div k;
n := n mod k;
if z>0 then writeln(k,' * ',z);
end.

Answer 2

Программа выводит (номинал) х (кол-во)

---

Скачать вложение Текст (TXT)