Ответы на вопрос:
Напишу все же с // pascalabc.net 3.2, сборка 1383 от 09.02.2017 // внимание! если программа не работает, обновите версию! begin var k: =arr(1000,100,50,10); // массив с достоинствами купюр var s: =readinteger('введите сумму: '); // сумма к оплате writeln('уплатить: '); var i: =0; while s> 0 do begin var p: =s div k[i]; if p> 0 then writeln(p,' шт. достоинством ',k[i],' руб.'); s: =s mod k[i]; i+=1 end; end. пример введите сумму: 1630 уплатить: 1 шт. достоинством 1000 руб. 6 шт. достоинством 100 руб. 3 шт. достоинством 10 руб.
Популярно: Информатика
-
aliyevasevgi514.06.2022 15:16
-
artemmavericksmesrri16.07.2020 16:56
-
heartanime22.10.2021 10:37
-
Marina1297124.03.2020 18:12
-
Natalasorochynska19.03.2022 15:08
-
evamakarova2022.03.2022 12:18
-
francyzovaola213.05.2023 21:20
-
privitvsim17.07.2021 04:54
-
Nastlerfight03.04.2020 21:53
-
123281501.05.2023 06:01