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

209

299

Посмотреть ответы 3

Ответы на вопрос:

BovolskajLesj

Информатика

4,7(95 оценок)

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

ЯЯЯ1118526

Информатика

4,4(86 оценок)

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.