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*
Комментарий*

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

lyukiss
vedaikin
oskar-pn
gassvetlana
afomin63
Murad Gushcharin
ilukianienko458
vak1984
mmi15
konstantinslivkov
ОвсепянСергей88
Lyubov214
Климова1317
vik1223
Елена-Семенова