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

Question

Давид Ильин

Информатика

16 декабря, 20:03

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

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Кристина Воронина · Answer 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.