Надо. 10000 байт перевести в килобайты 10000 байт перевести в мегабайты (мг) 600000 байт перевести в - id9517620230428 от Bobskromnaysh12 28.04.2023 14:33

Question

Информатика: Надо. 10000 байт перевести в килобайты 10000 байт перевести в мегабайты (мг) 600000 байт перевести в кигобайт (кб)

Bobskromnaysh12 · Accepted Answer

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('Количество строк (столбцов) в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var k:=0;
for var i:=1 to n-1 do
    for var j:=n-i to n-1 do
      if a[i,j].IsEven then k+=1;
Writeln('Количество четных элементов ниже побочной диагонали: ',k)
end.

Пример
Количество строк (столбцов) в матрице: 7
*** Исходная матрица ***
90 57 58 49 91 -83 61
-57 70 52 90 53 -22 89
-90 -23 39 -88 28 16 -34
-65 -19 -92 -49 77 11 79
-37 -85 -5   6 -41 -75 -90
   1 62 24 92 -37 88 21
-65 -47 48 -39 -46   6 38

Количество четных элементов ниже побочной диагонали: 11

Надо. 10000 байт перевести в килобайты 10000 байт перевести в мегабайты (мг) 600000 байт перевести в кигобайт (кб)

MOGZ ответил