• Показать, что любую сумму, большую 7 копеек, можно выплатить, используя только 3-х и 5-ти копеечные монеты. (То есть, для любого целого N>7 найти такие целые числа x и y, что 3x+5y=N ). Написать программу в Pascal

Ответы 1

  • program Diofant;

    var

     n, x, y: integer;

    begin

     n := 125;

     {3x + 5y = n, n >= 0, x >= 0, y >= 0;

     n - 5y >= 0, y <= n / 5}

     for y := 0 to n div 5 do

     begin

       if (n - 5 * y) mod 3 = 0 then

       begin

         x := (n - 5 * y) div 3;

         Writeln('3 * ', x, ' + 5 * ', y, ' = ', n)

       end;

     end;

     Readln;

    end.

    • Автор:

      konner
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years