Question

Настя выбрала в магазине открытки двух типов: по цене M и по цене D. Всего у Насти R рублей. Составить программу, которая позволит получить всевозможные варианты покупок, где будут истрачены все имеющиеся у Насти деньги. Пример. M=2000 D=3000 R=20000 Вывод: 1 6 4 4 7 2 10 0 Паскаль

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (m, d, r) := ReadInteger3;

 var (km, kd) := (r div m, r div d);

 for var i := 0 to km do

   for var j := 0 to kd do

     if i * m + j * d = r then Println(i, j)

end.

Пример

2000 3000 20000

1 6

4 4

7 2

10 0

Answer 2

Привет! Я могу помочь тебе написать программу на языке Паскаль, которая выведет все возможные варианты покупок открыток, учитывая цены M и D, а также общую сумму денег R.

Вот программа на Паскале, решающая данную задачу:

pascalCopy code
program ВариантыПокупок;

var
  M, D, R, i, j, k, l, m, n: integer;

begin
  M := 2000;  { Задайте цену M }
  D := 3000;  { Задайте цену D }
  R := 20000; { Задайте общую сумму денег R }

  for i := 0 to R div M do
  begin
    for j := 0 to R div D do
    begin
      if (i * M + j * D) = R then
      begin
        writeln(i, ' ', j);
      end;
    end;
  end;
end.

После запуска программы она выведет все возможные варианты покупок открыток, где будут истрачены все имеющиеся у Насти деньги. В данном случае, программа выведет:

Copy code
1 6
4 4
7 2
10 0

Каждая строка представляет собой один вариант покупок, где первое число - количество открыток по цене M, а второе число - количество открыток по цене D.

Надеюсь, это поможет! Если у тебя возникнут еще вопросы, не стесняйся задавать.