В кассе имеются денежные купюры достоинством в 1,5,10,50,100,500 рублей. Необходимо выплатить сумму n наименьшим кол-вом купюрЗадачу написать на Паскале (используя циклы)
В кассе имеются денежные купюры достоинством в 1,5,10,50,100,500 рублей. Необходимо выплатить сумму n наименьшим кол-вом купюр
Задачу написать на Паскале (используя циклы)
Гость
Ответ(ы) на вопрос:
Гостьconst
c:array[1..6] of integer=(1,5,10,50,100,500);
var
i:byte;
n,d:integer;
k:array[1..6] of integer;
begin
Write('Введите значение суммы: '); Read(n);
for i:=1 to 6 do k[i]:=0;
d:=n; i:=6;
while d>0 do begin
k[i]:=d div c[i];
d:=d mod c[i];
Dec(i)
end;
Write(n,' => ');
for i:=6 downto 1 do
if k[i]>0 then Write(c[i],'x',k[i],' ')
end.
Тестовое решение:
Введите значение суммы: 8947
8947 => 500x17 100x4 10x4 5x1 1x2
Не нашли ответ?
Похожие вопросы