UCHEES.RU - помощь студентам и школьникам

Записать ** языке «Паскаль» программу, реализующую алгоритм работы кассира, выдающего...

В 23:46 поступил вопрос в раздел Информатика, который вызвал затруднения у обучающегося.

Вопрос вызвавший трудности

Записать на языке «Паскаль»
программу, реализующую алгоритм работы кассира, выдающего покупателю сдачу
сумма «S» наименьшим кол-вом банкнот по 1000 , 500, 100, 50, 10 рублей.

Срочно, помогите!

Ответ подготовленный экспертами Учись.Ru

Для того чтобы дать полноценный ответ, был привлечен специалист, который хорошо разбирается требуемой тематике "Информатика". Ваш вопрос звучал следующим образом:

Записать на языке «Паскаль»
программу, реализующую алгоритм работы кассира, выдающего покупателю сдачу
сумма «S» наименьшим кол-вом банкнот по 1000 , 500, 100, 50, 10 рублей.

Срочно, помогите!

После проведенного совещания с другими специалистами нашего сервиса, мы склонны полагать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:

Var
  s: longint;
  n: array[1..5] of integer;
  c, i: integer;

begin
  n[1] := 1000;
  n[2] := 500;
  n[3] := 100;
  n[4] := 50;
  n[5] := 10;
  Write('Введите сумму, кратную 10: ');
  Readln(s);
  if (s mod 10) <> 0 then s := 10 * (s div 10);
  i := 1;
  while s > 0 do
  begin
    c := s div n[i];
    if c > 0 then begin Write(n[i], 'x', c, ' '); s := s mod n[i] end;
    i := i + 1
  end
end.

Тестовое решение:

Введите сумму, кратную 10: 52380
1000x52 100x3 50x1 10x3



-------------------



НЕСКОЛЬКО СЛОВ ОБ АВТОРЕ ЭТОГО ОТВЕТА:

Работы, которые я готовлю для студентов, преподаватели всегда оценивают на отлично. Я занимаюсь написанием студенческих работ уже более 4-х лет. За это время, мне еще ни разу не возвращали выполненную работу на доработку! Если вы желаете заказать у меня помощь оставьте заявку на этом сайте. Ознакомиться с отзывами моих клиентов можно на этой странице.

Смирнова Каторина Ивановна - автор студенческих работ, заработанная сумма за  прошлый месяц 86 400 рублей. Её работа началась с того, что она просто откликнулась на эту вакансию

ПОМОГАЕМ УЧИТЬСЯ НА ОТЛИЧНО!

Выполняем ученические работы любой сложности на заказ. Гарантируем низкие цены и высокое качество.

СМОТРЕТЬ ЦЕНЫ

Деятельность компании в цифрах:

Зачтено оказывает услуги помощи студентам с 1999 года. За все время деятельности мы выполнили более 400 тысяч работ. Написанные нами работы все были успешно защищены и сданы. К настоящему моменту наши офисы работают в 40 городах.

РАЗДЕЛЫ САЙТА

Ответы на вопросы - в этот раздел попадают вопросы, которые задают нам посетители нашего сайта. Рубрику ведут эксперты различных научных отраслей.

Полезные статьи - раздел наполняется студенческой информацией, которая может помочь в сдаче экзаменов и сессий, а так же при написании различных учебных работ.

Красивые высказывания - цитаты, афоризмы, статусы для социальных сетей. Мы собрали полный сборник высказываний всех народов мира и отсортировали его по соответствующим рубрикам. Вы можете свободно поделиться любой цитатой с нашего сайта в социальных сетях без предварительного уведомления администрации.

ЗАДАТЬ ВОПРОС

НОВЫЕ ОТВЕТЫ

ПОХОЖИЕ ВОПРОСЫ