Написать программу для вывода на экран минимально возможного набора купюр для выдачи сдачи кассиром покупателю с одной тысячи ру
Написать программу для вывода на экран минимально возможного набора купюр для выдачи сдачи кассиром покупателю с одной тысячи рублей, если покупатель должен заплатить N рублей
//PascalABC.NET Версия 3.0 Сборка 1150 var n:integer; begin writeln('Сколько стоит товар?'); readln(n); n:=1000-n; writeln('Сдача ',n,' рублей. Нужны купюры:'); writeln(n div 500, ' по 500 рублей, ', (n-(n div 500)*500)div 100, ' по 100 рублей, ', (n mod 100) div 50, ' по 50 рублей, ', (n-(n div 50)*50) div 10,' по 10 рублей, и ещё ', n mod 10, ' рублей мелочью.'); <span>end.
Результат работы: Сколько стоит товар? 324 Сдача 676 рублей. Нужны купюры: 1 по 500 рублей, 1 по 100 рублей, 1 по 50 рублей, 2 по 10 рублей, и ещё 6 рублей мелочью.<span> </span></span>
begin readln(x); repeat if (x div 3 > 0) then begin write(3:2); x -= 3; end else if (x div 2 > 0) then begin write(2:2); x -= 2; end else if (x > 0) then begin write(1:2); x -= 1; end; until (x = 0); <span>end.</span>