arsen-ai-ti
?>

Расскажите об обоснованиях системы

Информатика

Ответы

Николаевна
Напишу все же с жадным)))

// 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 руб.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Расскажите об обоснованиях системы
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

marvindkc
ГармаеваЕкатерина1637
xsmall1
obar1
mayskiyandrey90
djevgen
rinan2013
nadezhda81
Наталья286
lilit-yan
supply1590
eliteclassic308
alenaya69918
MariyaKhanbalaeva585
laleonaretouch