ЗАПИШИТЕ ** ЯЗЫКЕ ПАСКАЛЬ ПРОГРАММУ, РЕАЛИЗУЮЩУЮ АЛГОРИТМ РАБОТЫ КАССИРА, ВЫДАЮЩЕГО...

Question

ЗАПИШИТЕ НА ЯЗЫКЕ ПАСКАЛЬ ПРОГРАММУ, РЕАЛИЗУЮЩУЮ АЛГОРИТМ РАБОТЫ КАССИРА, ВЫДАЮЩЕГО ПОКУПАТЕЛЮ СДАЧУ (S) НАИМЕНЬШИМ КОЛИЧЕСТВОМ БАНКНОТ ПО 500 (K500), 100 (K100), 50(K50, И 10 РУБЛЕЙ (К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.