СРОЧНО! Объем сообщения весит 48 символов, что составляет 1/512 Мегабайта, какова мощность алфавита, даю 20 баллов.

Помогите!!! сколько существует различных путей для разных графов:-из начальной точки А в конечную точку И,-из начальной точки А

Анд12 [7]

Как-то так... )))

Первая картинка (из начальной точки А в конечную точку И)

Вторая картинка (из начальной точки А в конечную точку К, НЕ проходящих через Е)

Каждой вершине, начиная с начальной (A), поставим индекс, равный количеству путей, которыми можно попасть в эту вершину. Для вершины A (начало пути) индекс всегда равен 1 (в начало пути можно попасть единственным образом – никуда не двигаясь).

Теперь сформулируем правило: индекс вершины равен сумме индексов его предков. Исходя из этого индекс Б равен 1 (предок у Б один – вершина A).

Индекс В равен 3 (предков у В три – вершина A, вершина Б и вершина Г; 1 + 1 + 1 = 3).

И т.д.

Исключаем из подсчёта вершину Е для второго задания.

0 0

4 года назад

Дано равносторонний треугольник со стороной b. Разработайте код для определения, можно в этот треугольник вписать окружность рад

ААЕ

<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>

begin
var eps:=1e-3; // точность
var (b,r):=ReadReal2('Введите сторону треугольника и радиус:');
if Abs(r-b*Sqrt(3)/6)<=eps then Writeln('Окружность можно вписать')
else Writeln('Окружность вписать нельзя')
end.

0 0

4 года назад

Составить программу по задаче: Сколько воскресений в 2016 году, если первое воскресение 3 января.

Wahiaers

Var
k, n: integer;

begin
k := 0;
n := 3;
repeat
k := k + 1;
n := n + 7;
until n > 366;
writeln(k);
end.

Ответ 52

0 0

4 года назад

-2х +72 =68 Как записать в паскаль -2х = 68-72 -2х = -4 х = 4:2 х=2 Ответ:2

Яника22

// Скорее всего в задании было написать программу нахождения X.

var x:real;
begin
x:= ( 68 - 72 ) / -2;
end.

0 0

3 года назад