Регистрация
Danich20
31.03.2023 12:01
Информатика
Есть ответ 👍

Как заменить все красные плитки на зелёные вдоль стены, в программе паркетчик? Напишите алгоритм.

239
477
Посмотреть ответы 1

Ответы на вопрос:

иринакодр
иринакодр
4,6(24 оценок)

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.

Популярно: Информатика