В банкомате имеются в достаточном количестве купюры номиналом 10, 20, 50, 100, 200 и 500 гривен. Найти минимальное количество купюр, которое необходимо использовать, чтобы выдать сумму в n гривен или вывести -1, если указанную сумму выдать нельзя.
Входные данные
Одно число n (1 ≤ n ≤ 1000000).
Выходные данные
Вывести n.
для Паскаль или Делфи
Держи, набросал тут 1 вариант, но могут быть ошибки;
Program Money;
Uses Crt;
Var m : LongInt;
n : Integer;
Procedure MinusMoney(k : Integer);
Var i : Integer;
Begin
i := 0;
Repeat
m := m - k;
n := n + 1;
Until m < k;
End;
Begin
ClrScr;
n := 0;
Write('Введи сумму: ');
ReadLn(m);
If m >= 10 Then
Begin
if m >= 500 Then MinusMoney(500);
if m >= 200 Then MinusMoney(200);
if m >= 100 Then MinusMoney(100);
if m >= 50 Then MinusMoney(50);
if m >= 20 Then MinusMoney(20);
if m >= 10 Then MinusMoney(10);
if not (m = 0) then n := -1;
End
else
n := -1;
Write(n);
ReadLn;
End.
⇢