ЮЯЧЬБУЯ расшифровка ПРИНТЕР!! Он нужен для печати документов, файлов и т.д
olgalooo
14.06.2021
Следует отметить, что 1 условие выполняется во всех цепочках, а значит его можно не рассматривать. Рассмотрим каждую комбинацию отдельно: HDEE 2 условие - true 3 условие - true 4 условие - true Подходит HHAE 2 условие - true 3 условие - false(H на 2 месте) HEAE 2 условие - true 3 условие - true 4 условие - true Подходит AHAH 2 условие - true 3 условие - true 4 условие - true Подходит AEAD 2 условие - true 3 условие - true 4 условие - true Подходит AEED 2 условие - false(E на 3 месте) CAEH 2 условие - false(A не входит в список допустимых значений) EHAD 2 условие - true 3 условие - false(E не входит в список допустимых значений) CDEA 2 условие - true 3 условие - true 4 условие - false(A не входит в список допустимых значений) ответ: 4
oskon008
14.06.2021
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016 var i,j,k,n:integer; a,b,c:array[,] of integer; begin Write('Число строк (столбцов) матрицы: '); Read(n); SetLength(a,n,n); SetLength(b,n,n); SetLength(c,n,n); Randomize; Writeln('Матрица A'); for i:=0 to n-1 do begin for j:=0 to n-1 do begin a[i,j]:=Random(90)+10; Write(a[i,j]:3) end; Writeln end; Writeln('Матрица B'); for i:=0 to n-1 do begin for j:=0 to n-1 do begin b[i,j]:=Random(90)+10; Write(b[i,j]:3) end; Writeln end; // умножение и вывод Writeln('Матрица C'); for i:=0 to n-1 do begin for j:=0 to n-1 do begin c[i,j]:=0; for k:=0 to n-1 do c[i,j]:=c[i,j]+a[i,k]*b[k,j]; Write(c[i,j]:6) end; Writeln end; end.