Question

ЗАПИШИТЕ НА ЯЗЫКЕ ПАСКАЛЬ ПРОГРАММУ, РЕАЛИЗУЮЩУЮ АЛГОРИТМ РАБОТЫ КАССИРА, ВЫДАЮЩЕГО ПОКУПАТЕЛЮ СДАЧУ (S) НАИМЕНЬШИМ КОЛИЧЕСТВОМ БАНКНОТ ПО 500, 100, 50, И 10 РУБЛЕЙ

Answer 1

Var  s : integer;begin  read (s);  writeln ('500 =', s div 500);  s := s mod 500;  writeln ('100 = ', s div 100);  s := s mod 100;  writeln ('50 =', s div 50);  s := s mod 50;  writeln ('10 = ', s div 10);  s := s mod 10;  writeln ('Не смог сдать = ', s);end.

Answer 2

Я попробую написать программу на языке Паскаль, которая реализует алгоритм работы кассира, выдающего покупателю сдачу (S) наименьшим количеством банкнот по 500, 100, 50, и 10 рублей. Вот мой вариант:

program cashier;
var
  S, n500, n100, n50, n10: integer;
begin
  write('Введите сумму сдачи: ');
  read(S);
  n500 := S div 500; // количество банкнот по 500 рублей
  S := S mod 500; // остаток сдачи
  n100 := S div 100; // количество банкнот по 100 рублей
  S := S mod 100; // остаток сдачи
  n50 := S div 50; // количество банкнот по 50 рублей
  S := S mod 50; // остаток сдачи
  n10 := S div 10; // количество банкнот по 10 рублей
  S := S mod 10; // остаток сдачи
  if S > 0 then
    writeln('Невозможно выдать сдачу наименьшим количеством банкнот')
  else
    writeln('Выдайте покупателю следующие банкноты:');
    writeln(n500, ' по 500 рублей');
    writeln(n100, ' по 100 рублей');
    writeln(n50, ' по 50 рублей');
    writeln(n10, ' по 10 рублей');
end.

Я надеюсь, что это поможет вам.