Номер 10, страница 171 - гдз по информатике 8 класс учебник Босова, Босова

Вопросы и задания. Параграф 4.3. Программирование линейных алгоритмов. Глава 4. Начала программирования на языке Паскаль - номер 10, страница 171.

Условие.

10. Разработайте и отладьте программу, реализующую алгоритм работы кассира, выдающего покупателю сдачу (s) наименьшим возможным количеством банкнот по 500 (k500), 200 (k200), 100 (k100) и 50 (k50) рублей. Предусмотрите вывод сообщения о том, что часть сдачи, которую невозможно выдать купюрами, будет выдана монетами. Для проверки правильности программы используйте тест:

Входные данные	Выходные данные
845	Следует сдать: банкнот по 500 руб. – 1 шт. банкнот по 200 руб. – 1 шт. банкнот по 100 руб. – 1 шт. банкнот по 50 руб. – 0 шт. монетами – 45 руб.

Решение.

var
s, k500, k200, k100, k50: integer;
begin
writeln ('Введите сумму сдачи');
readln (s);
k500:=s div 500;
s:=s mod 500;
k200:=s div 200;
s:=s mod 200;
k100:=s div 100;
s:=s mod 50;
writeln ('Следует сдать:');
writeln ('банкнот по 500 руб. - ', k500, 'шт.');
writeln ('банкнот по 200 руб. - ', k200, 'шт.');
writeln ('банкнот по 100 руб. - ', k100, 'шт.');
writeln ('банкнот по 50 руб. - ', k50, 'шт.');
writeln ('монетами - ', s, 'руб.');
end.