Зная, что в кодировке ASCII десятичный код каждой строчной латинской буквы на 32 больше кода соответствующей прописной буквы, декодируйте следующее сообщение:
Культурный уровень современного человека определяется его информационной культурой. А информационная культура личности, как культура вообще, отражает активную творческую деятельность человека и, следовательно, развитие самого человека, как субъекта этой деятельности. Так как речь идет о культуре информационной, значит деятельность человека связана с информацией. То есть, информационная культура предполагает не только определенные знания, но и определенное приложение этих знаний для чего-либо, в связи с чем-либо, и совершенствование их в процессе той или иной деятельности, в том числе деятельности, связанной с информацией. Причем само приложение и совершенствование знаний значимо лишь в творчестве, реализованном в любой сфере жизнедеятельности человека.
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в матрице:'); var m:=ReadInteger('Количество столбцов в матрице:'); Writeln('*** Исходная матрица [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var s:=a.Row(0).Sum+a.Row(n-1).Sum; s+=a.Col(0).Skip(1).Take(n-2).Sum+a.Col(m-1).Skip(1).Take(n-2).Sum; Writeln('Сумма по периметру ',s) end.
Пример Количество строк в матрице: 4 Количество столбцов в матрице: 5 *** Исходная матрица [4,5] *** 87 -67 11 59 46 -13 86 -74 20 -98 -74 24 6 51 74 26 -93 36 40 66
Культурный уровень современного человека определяется его информационной культурой. А информационная культура личности, как культура вообще, отражает активную творческую деятельность человека и, следовательно, развитие самого человека, как субъекта этой деятельности. Так как речь идет о культуре информационной, значит деятельность человека связана с информацией. То есть, информационная культура предполагает не только определенные знания, но и определенное приложение этих знаний для чего-либо, в связи с чем-либо, и совершенствование их в процессе той или иной деятельности, в том числе деятельности, связанной с информацией. Причем само приложение и совершенствование знаний значимо лишь в творчестве, реализованном в любой сфере жизнедеятельности человека.
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.Row(0).Sum+a.Row(n-1).Sum;
s+=a.Col(0).Skip(1).Take(n-2).Sum+a.Col(m-1).Skip(1).Take(n-2).Sum;
Writeln('Сумма по периметру ',s)
end.
Пример
Количество строк в матрице: 4
Количество столбцов в матрице: 5
*** Исходная матрица [4,5] ***
87 -67 11 59 46
-13 86 -74 20 -98
-74 24 6 51 74
26 -93 36 40 66
Сумма по периметру 100