<span>Предположим, что это возможно. Рассмотрим тогда граф, вершины которого соответствуют телефонам, а ребра – соединяющим их проводам. В этом графе 15 вершин: степень 4 из них равна 3, </span>степень 8 из них равна 6 и степень 3 из них равна 5.
Зная теорему: <span>Число нечетных вершин любого графа четно.
Понимаем, что граф с 7 вершинами с нечетными степенями существовать не может.
Ответ: Нельзя
</span>
А) локальный
Б) глобальный
В) локальный
Г) глобальный
Д) могут быть оба варианта, но скорее локальный
Е) глобальный
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var r1,r2,r3:real;
Write('Введите R1 R2 R3: '); Read(r1,r2,r3);
var g:=1/r1+1/r2+1/r3;
Writeln('R=',1/g:0:5)
end.
<u><em>Тестовое решение:</em></u>Введите R1 R2 R3: 3.5 2.75 4
R=1.11191
то что параметр цикла не в заголовке это не ошибка, но настоятельная рекомендация, а ошибка у вас в том, что вы не выделили память под динамический массив, a:=new integer[n] (или SetLength(a,n)). И, поскольку индексация элементов в динамических массивах начинается с 0, то в цикле For верхняя граница параметра i должна быть на 1 меньше n, то есть For i:=0 to n-1.
