№1
На рисунке 1 изображена схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, З, И, К, Л.
По каждой дороге можно двигаться только в одном направлении, указанном стрелкой.
Сколько существует путей из города А в город К, проходящих через город В?

№2
На рисунке 2 изображена схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, З, И, К, Л.
По каждой дороге можно двигаться только в одном направлении, указанном стрелкой.
Сколько существует путей из города А в город Л, не проходящих через город Ж?
№3
3 скриншот

№1 На рисунке 1 изображена схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, З, И, К, Л. По каждо

👇

Ответ:

juanabakar

15.02.2020

ответ: 14

Каждой вершине, начиная с начальной (A), поставим в соответствие индекс, равный количеству путей, которыми можно попасть в эту вершину. Для вершины A (начало пути) индекс всегда равен 1 (в начало пути можно попасть единственным образом – никуда не двигаясь). Теперь сформулируем правило: индекс вершины равен сумме индексов его предков. Исходя из этого индекс Б равен 1 (предок у Б один – вершина A). У вершины Г предками являются А и В, значит индекс вершины Г равен 1+1=2. И т.д.

Объяснение:

4,4(14 оценок)

Открыть все ответы

Ответ:

ИзабельКоролина2006

15.02.2020

Первая программа:

Var a,b:integer;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
if a mod b = 0 then WriteLn(b,' - делитель ',a)
else WriteLn(b,' не является делителем ',a)
End.

Вторая программа:

Var
   a,b:real;
Begin
WriteLn('a и b - катеты прямоугольного треугольника');
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
WriteLn('S = ',a*b/2);
WriteLn('P = ',Sqrt(a*a+b*b)+a+b);
End.

Пример работы программы:

a и b - катеты прямоугольного треугольника
a = 3
b = 4
S = 6
P = 12

Примечание: программа не проверяет, существует ли треугольник и является ли он прямоугольным.

Третья программа:

Var
   a,b,c,D:real;
Begin
WriteLn('ax^2 +bx +c = 0');
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
D:=b*b-4*a*c;
if D < 0 then Write('Действительных корней нет')
else
   Begin
   WriteLn('x1 = ',(-b-Sqrt(D))/(2*a));
   WriteLn('x2 = ',(-b+Sqrt(D))/(2*a));
   End
End.

Четвёртая программа:

Var a,b,c:real;
Begin
Write('Введите три числа: ');ReadLn(a,b,c);
a:=Abs(a-c);
b:=Abs(b-c);
if a < b then WriteLn('Первое число ближе к третьему')
else if a > b then WriteLn('Второе число ближе к третьему')
     else WriteLn('Первое и второе число - одинаково близки к третьему')
End.

Пример работы программы:

Введите три числа: 1 2 3
Второе число ближе к третьему

Введите три числа: 1 1 3
Первое и второе число - одинаково близки к третьему

Введите три числа: 2 1 13
Первое число ближе к третьему

4,6(70 оценок)

Ответ:

окрвовлвлк

15.02.2020

var
a, b: integer;
begin
writeln('Введите a, b: '); readln(a, b);
if(b mod a = 0) then writeln('Является делителем')
else writeln('Не является делителем');
end.

var
x, y, tmp: real;
begin
repeat
writeln('Введите x, y: '); readln(x, y);
until(x <> y);
if(x > y) then begin
tmp := y;
y := (x + y) / 2;
x := 2*(x * tmp);
writeln('Большее - X = ', x, ' Меньшее - Y = ', y);
end else begin
tmp := x;
x := (x + y) / 2;
y := 2*(tmp * y);
writeln('Большее - Y = ', y, ' Меньшее - X = ', x);
end;
end.