Написать программу, которая вычисляет, сколько купюр и какого достоинства нужно отдать

Написать программку, которая вычисляет, сколько купюр и какого достоинства необходимо отдать в кассу, чтоб оплатить покупку в S рублей. Знаменито, что у покупателя имеются купюры достоинством 500 р., 100р. и 50р., а рассчитываться он начинает с самой большой.(Язык программирования - Паскаль)

Задать свой вопрос
1 ответ

program k_500_100_50;
var s:integer;

begin
write(Введите сумму, кратную 50: );
readln(s);
writeln();
writeln(Купюры по 500 р.: , s div 500 : 4);
writeln(Купюры по 100 р.: , (s mod 500) div 100 : 4);
writeln(Купюры по  50 р.: , (s mod 100) div 50 : 4)
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт