Запишите на языке паскаль программу, реализующую алгоритм работы кассира, покупателю сдачу (s) наименьшим возможным количеством банкнот по 500 (k500), 100(k100), 50(k50) и 10(k10) рублей. пример: сдача 850р. следует сдать: банкнот по 500 р. - 1шт. банкнот по 100 р. - 3 шт. банкнот по 50р. - 1шт банкнот по 10р. - 0шт.

227

311

Посмотреть ответы 2

Ответы на вопрос:

aculkow2017

Информатика

4,4(16 оценок)

// pascalabc.net 3.1, сборка 1198 от 11.03.2016 begin var bnk: =arr(500,100,50,10); var s: =readinteger('сдача, руб: '); var kol: =arr(0,0,0,0); for var i: =0 to 3 do begin kol[i]: =s div bnk[i]; s: =s mod bnk[i] end; if s< > 0 then writeln('сдачу дать невозможно') else begin writeln('следует дать: '); for var i: =0 to 3 do writeln('банкнот по ',bnk[i],' руб - ',kol[i],' шт.') end end. тестовое решение: сдача, руб: 850 следует дать: банкнот по 500 руб - 1 шт. банкнот по 100 руб - 3 шт. банкнот по 50 руб - 1 шт. банкнот по 10 руб - 0 шт.