ЗАПИШИТЕ НА ЯЗЫКЕ ПАСКАЛЬ ПРОГРАММУ…

Question

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

Answer 1

54

tamed

27 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: