алгоритм работы банкомата

Ответ от Gennady[гуру]
Доброго времени суток.
Попробуйте использовать целочисленное деление. Ваш пример 3540.
3540 div 5000 = 0 3540-0*5000=3540
3540 div 1000 = 3 3540-3*1000=540
540 div 500 = 1 540-1*500=40
40 div 100 = 0
40 div 50 = 0
40 div 10 = 4
Как-то так.. Если выдаваемые купюры вы занесете в массив, то программка получися довольно короткой. Правда здесь не реализована возможность выдавать требуемыми купюрами.
Удачи!
ЗЫ На паскале реализация может быть такой
const
Money : array[1..6] of Integer = (5000,1000,500,100,50,10);
var
N, M, i, K : Integer;
begin
Readln(N);
M := N;
i := 1;
while M > 0 do begin
K := M div Money[ i ];
M := M - K * Money[ i ];
if K > 0 then WriteLn(K, ' купюр по ', Money[ i ]);
i := i + 1;
end;
ReadLn;
end.
Gennady
(51359)
Не понял, где ноль купюр по 500? Вы делаете это последовательно, начиная с больших купюр и выводите только отличные от нуля результаты деления.