Question

Запишите на языке паскаль программу, реализующую алгоритм работы кассира, покупателю сдачу (s) наименьшим возможным количеством банкнот по 500 (k500), 100(k100), 50(k50) и 10(k10) рублей. пример: сдача 850р. следует сдать: банкнот по 500 р. - 1шт. банкнот по 100 р. - 3 шт. банкнот по 50р. - 1шт банкнот по 10р. - 0шт.

Answer 1

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var Bnk:=Arr(500,100,50,10);
  var s:=ReadInteger('Сдача, руб:');
  var Kol:=Arr(0,0,0,0);
  for var i:=0 to 3 do begin
    Kol[i]:=s div Bnk[i];
    s:=s mod Bnk[i]
    end;
  if s<>0 then Writeln('Сдачу дать невозможно')
  else begin
    Writeln('Следует дать:');
    for var i:=0 to 3 do
      Writeln('банкнот по ',Bnk[i],' руб - ',Kol[i],' шт.')
    end
end.

Тестовое решение:
Сдача, руб: 850
Следует дать:
банкнот по 500 руб - 1 шт.
банкнот по 100 руб - 3 шт.
банкнот по 50 руб - 1 шт.
банкнот по 10 руб - 0 шт.