Question

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

Answer 1

Var _500,_100,_50,_10,money_get:integer;beginwriteln('Введите стоимость товара');readln(money_get);while(money_get mod 10 <> 0) do        begin        writeln('стоимость должна делиться на 10, попробуйте еще раз');        readln(money_get);        end;while (money_get>=500) do        begin        _500:=_500+1;        money_get:=money_get-500;        end;while (money_get>=100) do        begin        _100:=_100+1;        money_get:=money_get-100;        end;while (money_get>=50) do        begin        _50:=_50+1;        money_get:=money_get-50;        end;while (money_get>=10) do        begin        _10:=_10+1;        money_get:=money_get-10;        end;
writeln(_500,': 500 рублей',_100,':100 рублей',_50,':50 рублей',_10,':10 рублей');


readln;end.

Answer 2

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

program Cashier;

var
  amount, change, num500, num100, num50, num10: integer;

begin
  // Вводим сумму покупки
  write('Введите сумму покупки: ');
  readln(amount);
  
  // Вводим сумму, которую дал клиент
  write('Введите сумму, которую дал клиент: ');
  readln(change);
  
  // Вычисляем сдачу
  change := change - amount;
  
  // Вычисляем количество банкнот по 500 рублей
  num500 := change div 500;
  change := change mod 500;
  
  // Вычисляем количество банкнот по 100 рублей
  num100 := change div 100;
  change := change mod 100;
  
  // Вычисляем количество банкнот по 50 рублей
  num50 := change div 50;
  change := change mod 50;
  
  // Вычисляем количество банкнот по 10 рублей
  num10 := change div 10;
  change := change mod 10;
  
  // Выводим результат
  writeln('Сдача:');
  writeln('Банкнот по 500 рублей: ', num500);
  writeln('Банкнот по 100 рублей: ', num100);
  writeln('Банкнот по 50 рублей: ', num50);
  writeln('Банкнот по 10 рублей: ', num10);
  
  readln;
end.

Программа сначала запрашивает сумму покупки, затем сумму, которую дал клиент. Затем она вычисляет сдачу и количество банкнот каждого номинала, начиная с банкнот по 500 рублей и заканчивая банкнотами по 10 рублей. Наконец, программа выводит результат на экран.

Например, если сумма покупки равна 350 рублей, а клиент дал 500 рублей, программа выведет следующий результат:

Сдача:
Банкнот по 500 рублей: 0
Банкнот по 100 рублей: 1
Банкнот по 50 рублей: 1
Банкнот по 10 рублей: 0

То есть, кассир должен отдать клиенту одну банкноту по 100 рублей и одну банкноту по 50 рублей.