1) Чтобы получить 4 литра нужно из девятилитрового ведра перелить воду в пятилитровое ведро. Т.к. в пятилитровое ведро вместится только 5 литров, то в девятилитровом останется 4 литра.
2) Чтобы получить 1 литр нужно из девятилитрового ведра перелить воду в пятилитровое ведро. Т.к. в пятилитровое ведро вместится только 5 литров, то в девятилитровом останется 4 литра. Теперь нужно из девятилитрового ведра, в котором сейчас 4 литра, перелить воду в трёхлитровое ведро. Т. к. в трёхлитровое ведро вместится только 3 литра, то в девятилитровом будет 1литр. В пятилитровом так и останется 5 литров.
===== PascalABC.NET =====
= 1 =
begin
var n := ReadInteger('N =');
var A := ArrRandom(n, -99, 99);
A.Println;
// собственно, решение
var s := A.Sum; // сумма всех элементов массива
var L := new List<integer>; // то, что войдет в массив В
// берем каждого претендента и сравниваем его с остальной суммой
for var i := 0 to A.High do
if (Abs(A[i] mod 10) = 5) and (A[i] > s - A[i]) then
L.Add(A[i]);
var B := L.ToArray;
if B.Length > 0 then
begin
Print('Особые элементы:');
B.Print
end
else
Print('Нет "особых" элементов');
end.
= 2 =
begin
var n := ReadInteger('N =');
var A := ArrRandom(n, -10, 10);
A.Println;
// собственно, решение
var D := new Dictionary<integer, integer>; // словарь
foreach var k in A do // перебор элементов
if D.ContainsKey(k) then
D[k] += 1 // +1, если такой элемент был
else
D.Add(k, 1); // 1, если элемент встретился впервые
D.Count(p -> p.Value > 1).Print
end.
