Работница теплицы готовит раствор для подкормки растений. В ее распоряжении имеются...

Question

Работница теплицы готовит раствор для подкормки растений. В ее распоряжении имеются стеклянные банки 1, 2, и 3 литра. Какое наименьшее количество банок воды потребуется для подготовки N(N<100) литров раствора?<br> Пример:
Входные данные = 10
Выходные данные= 3 3 3 1

Answer 1

var
  x, y: byte;

begin
  readln(x);
  repeat
    if (x div 3 > 0) then
    begin
      write(3:2);
      x -= 3;
    end
    else
    if (x div 2 > 0) then
    begin
      write(2:2);
      x -= 2;
    end
    else
    if (x > 0) then
    begin
      write(1:2);
      x -= 1;
    end;
  until (x = 0);
end.