ЗАПИШИТЕ НА ЯЗЫКЕ ПАСКАЛЬ ПРОГРАММУ, РЕАЛИЗУЮЩУЮ АЛГОРИТМ РАБОТЫ КАССИРА, ВЫДАЮЩЕГО ПОКУПАТЕЛЮ СДАЧУ (S) НАИМЕНЬШИМ КОЛИЧЕСТВОМ БАНКНОТ ПО 500, 100, 50, И 10 РУБЛЕЙ
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
