Я знаю, что это правильный ответ
var arr: array [1..9] of integer;
i, num: integer;
begin
i := 1;
while (i <= 9) do
begin
readln(num);
if (num mod 3 = 0) then
begin
arr[i] := num;
i := i + 1;
end;
end;
end.
Первая гиря - 1 кг, это достаточно очевидно.
Вторая гиря - 3 кг, с её помощью можно получить следующие веса:
2 кг = 3 кг - 1 кг (на одну чашу ставим 3 кг, на вторую 1 кг плюс товар)
3 кг = 3 кг
4 кг = 3 кг + 1 кг
Дальше нам нужно 9 кг:
5 кг = 9 кг - 3 кг - 1 кг
6 кг = 9 кг - 3 кг
7 кг = 9 кг + 1 кг - 3 кг
... ... ...
13 кг = 9 кг + 3 кг + 1 кг
Последняя гиря - это 27 кг (чтобы в сумме получалось 40 кг).
Ответ: 1, 3, 9, 27.