Классный руководитель директору, что у него классе появилась компания из 3-х учеников, один из которых - id320726620210121 от mayorova4 21.01.2021 04:00

Question

Информатика: Классный руководитель директору, что у него классе появилась компания из 3-х учеников, один из которых всегда говорит правду, другой всегда лжет, а третий говорит через раз то ложь, то правду. директор знает, что их зовут коля, саша и миша, но не знает, кто из них правдив, а кто - нет. однажды все трое прогуляли урок астрономии. директор знает, что раньше никто из них не прогуливал астрономию. он вызвал всех троих в кабинет и поговорил с мальчиками. коля сказал: я раньше никогда не прогуливал астрономию

mayorova4 · Accepted Answer

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016) function Transpose(a: array[,] of integer): array[,] of integer; //Поворот на 90гр по часовой стрелке begin   var m := Length(a, 0);   var n := Length(a, 1);   Result := new integer[n, m];   for var i := 0 to n-1 do begin     for var j := 0 to m-1 do       Result[i, j] := a[m-1-j, i];   end; end; begin   var n := ReadInteger( Введите n: ); //Заполнение матрицы NxN сл. числами и вывод на экран   var a :=MatrixRandom(n, n);   for  var i:=0 to...

MOGZ ответил