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

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.