Определить максимально возможное количество пирожков, которые Петя может купить - Pascal ABC

  1. Петя очень любит пирожки с различной начинкой, причем не так важно с какой именно. Однажды, пребывая в голодном состоянии, Петя зашел в буфет и увидел, что в продаже присутствуют пирожки с картошкой, капустой и рисом. Петя желает купить как можно больше пирожков, но проблема в том, что количество пирожков в продаже ограничено так же, как и количество денег у Пети. Помогите Пете определить максимально возможное количество пирожков, которые он может купить. Входные данные Первая строка входного файла INPUT.TXT содержит числа P1, P2 и P3 – стоимость пирожков с картошкой, капустой и рисом соответственно. Во второй строке определены значения N1, N2 и N3 – количество соответствующих пирожков в продаже. В третьей строке записано число R – количество денег у Пети. Все числа во входных данных целые неотрицательные, не превосходящие 1018. Примеры 5 3 8 2 6 4 23 ответ 7 мой вариант но не работает: Кликните здесь для просмотра всего текста


textual

Код к задаче: «Определить максимально возможное количество пирожков, которые Петя может купить - Pascal ABC»

program pirojki;
 
const
  nacinka = 3;
 
var
  stoimost: array [1 .. nacinka] of integer = (
    5,
    3,
    8
  );
  kolicestvo: array [1 .. nacinka] of integer = (
    2,
    6,
    4
  );
  dengi: integer = 23;
  kupil: integer = 0;
  denegDostatocno: Boolean = true;
  i, samieDesovieIndex, samieDesovieCena: integer;
 
begin
  while denegDostatocno do
  begin
    samieDesovieCena := 10000;
    for i := Low(stoimost) to High(stoimost) do
    begin
      if (samieDesovieCena > stoimost[i]) and (kolicestvo[i] > 0) then
      begin
        samieDesovieCena := stoimost[i];
        samieDesovieIndex := i;
      end;
    end;
    while (kolicestvo[samieDesovieIndex] > 0) and denegDostatocno do
    begin
      while (dengi - stoimost[samieDesovieIndex] >= 0) and
        (kolicestvo[samieDesovieIndex] > 0) do
      begin
        dec(dengi, stoimost[samieDesovieIndex]);
        dec(kolicestvo[samieDesovieIndex]);
        inc(kupil);
      end;
      if kolicestvo[samieDesovieIndex] > 0 then
        denegDostatocno := false;
    end;
  end;
  writeln('Петя купил ', kupil, ' пирожков');
  Readln;
 
end.

СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 4.200 из 5



Похожие ответы
  1. нужная область-заштрихованная. радиус равен 4

  1. Нужно переделать код так чтобы он при вводи четырех чисел определял совпадают ли в нем вторая и последняя.

  1. Доброго времени суток программисты! Вот такая задачка вызвала затруднение: С клавиатуры вводятся четыре пары координат точек в произвольном порядке(гарантируется, что они не лежат на одной прямой), определить являются ли эти точки вершинами параллелограмма. Подскажите пожалуйста с программой или с алгоритмом осуществления, заранее благодарен.

  1. 29. Определить, заканчивается ли заданное натуральное число на нечетную цифру

  1. 2)Определить какая буква о или а входит в него чаще и на сколько их надо написать множеством

  1. Зада ) Багаж пассажира характеризуется количеством и общей массой вещей. Дан файл Bagazh, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно поле действительное (масса вещей в килограммах). Определить: а) число пассажиров, имеющих более двух вещей, и число пассажиров, количество вещей, которых превосходит среднее; б) имеется ли пассажир, багаж которого состоит из одной вещи массой менее Т [кг]. файл должен создаваться программой

  1. Определить, равны ли первая и последняя цифры заданного с клавиатуры числа.

  1. Помогите, пожалуйста, с программой Даны натуральное число n, целые числа а1,…,аn (последовательности идущих подряд членов), состоящие из степеней пятерки. Определить процедуру, позволяющую распознавать степень пятерки. Программу оформить в виде диалога. Выход из программы – нажатием Esc.

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

  1. Определить произведение элементов в тех столбцах, которые не содержат элементов кратных 5.