4.справа не така послідовність як треба
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (k, p, n) := (0, int64(1), ReadInteger('n ='));
var t: integer;
for var i := 1 to n do
begin
Read(t);
if t mod 3 = 0 then
begin
p *= t;
Inc(k)
end
end;
Write('Произведение ', k, ' элементов равно ', p)
end.
<h2>Пример</h2><h3>n = 7</h3><h3>53 -28 36 174 -600 45 -93</h3><h3>Произведение 5 элементов равно 15728904000</h3>
15 вершин, полный граф, (т.е. есть всевозможные связи)
связей = n*(n-1)/2 = 15*14/2 = 105
Если связи убирать случайно
Связный граф - вершины должны быть соединены хоть раз. Для 15 вершин должно быть 15-1=14 связей
Несвязным граф точно будет если связей 13 и меньше
105 - 13 = 92 связи нужно убрать
Если связи убирать целенаправленно
То тогда нужно отсоеденить одну вершину. Всего вершин 15, и каждая связана с 14 остальными вершинами. Если мы уберем эти 14 связей, то 15 вершинный граф перестанет быть связным
Ответ 14
Считаем буквы А, Д и Р цифрами 0, 1 и 2 троичной системы счисления.
Итого нам нужно перевести 200000 в десятичную. Итак, 3^5 * 2 = 486.