Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.