1.На рисунке – схема дорог, связывающих города A, B, C, D, E, F, G и H. По каждой дороге можно двигаться только в одном направлении, указанном стрелкой. Сколько существует различных путей из города A в город H, не проходящих через город D?
обязательно что б было 8 символов ,если будет меньше, то слева приписываешь 0 ) Затем переводишь маску в двоичную систему . (Покажу тебе на двух числах, если ты понял то что я написал выше , то с другими этого проделывать не надо , а если не понял , то делаешь так для каждого числа)
Затем просто переписываешь эти числа в два ряда
11100000 11000100 ( И пишешь 1 там где друг над другом стоят единицы) 11000000
Теперь переводишь это число в десятичную
Твой ответ . 12.16.192.0 (буквы думаю сам напишешь )
// PascalABC.NET 3.0, сборка 1128 procedure DeleteRow(var a:array[,] of integer; r:integer); begin var rows:=a.GetLength(0); var cols:=a.GetLength(1); for var i:=r to rows-2 do for var j:=0 to cols-1 do a[i,j]:=a[i+1,j]; SetLength(a,rows-1,cols) end;
begin var b:array[,] of integer:=((1,2,3,0),(5,6,0,8), (9,10,11,12),(13,0,15,16),(17,18,19,20)); Writeln('Исходный массив: ',b); var n:=b.GetLength(0); var m:=b.GetLength(1); // удаляем строки без нулевых элементов for var i:=n-1 downto 0 do begin var FoundZero:=False; for var j:=0 to m-1 do if b[i,j]=0 then begin FoundZero:=True; Break end; if not FoundZero then DeleteRow(b,i) // удалить строку end; Writeln('Результирующий массив: ',b); end.
Затем просто переписываешь эти числа в два ряда
11100000
11000100 ( И пишешь 1 там где друг над другом стоят единицы)
11000000
Теперь переводишь это число в десятичную
Твой ответ . 12.16.192.0 (буквы думаю сам напишешь )