Восемь школьников оставались в классе на перемене, и один из них разбил окно. на вопрос директора, кто - id704604920200603 от stigma70 03.06.2020 16:42

Question

Информатика: Восемь школьников оставались в классе на перемене, и один из них разбил окно. на вопрос директора, кто это сделал, были получены следующие ответы: егор: «разбил степан»! инна : «галя разбила»! оля: «разбила инна». миша: «это кто-то с улицы»! надя: «да, оля права». коля: «это либо галя, либо инна»! степан: «нигаля , ни инна этого не делали»! галя: «степан не бил»! кто разбил окно, если известно, что из этих высказываний истинно ровно три.

stigma70 · Accepted Answer

Option Explicit Sub aaa()     Const n = 5     Dim A(1 To n, 1 To n) As Long, E(1 To n, 1 To n) As Long     Dim i As Integer, j As Integer, k As Integer     инициализация матриц     For i = 1 To n         For j = 1 To n             If i = j Then                 A(i, j) = 0 глупо тут вычислять i-j                 E(i, j) = 1             Else                 A(i, j) = i - 2 * j                 E(i, j) = 0             End If         Next j     Next i     A^2 - просто умножение матрицы самой на себя...

MOGZ ответил