Выполнить перевод числа из десятичной системы счисления в двоичную: (200)10→ (11001000)2 рассчитать - id845848420230117 от Katya18RUS2000 17.01.2023 11:58

Question

Информатика: Выполнить перевод числа из десятичной системы счисления в двоичную: (200)10→ (11001000)2 рассчитать подробно

Katya18RUS2000 · Accepted Answer

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

begin
Writeln('*** Исходный массив ***');
var c:=MatrRandom(3,5,-9,9);
c.Println(4); Writeln(4*c.ColCount*'-');
Writeln('Произведение элементов: ',
      c.ElementsByRow.Aggregate(int64(1),(x,y)->x*y));
Writeln('*** Массив-результат ***');
c.Transform(t->t*t);
for var i:=0 to c.RowCount-1 do c[i,i]:=1;
c.Println(4)
end.

Пример
*** Исходный массив ***
-7 -3   4 -1 -5
   9   1   9   2   4
-3 -3 -1 -4 -8

Произведение элементов: -78382080
*** Массив-результат ***
   1   9 16   1 25
81   1 81   4 16
   9   9   1 16 64

Выполнить перевод числа из десятичной системы счисления в двоичную: (200)10→ (11001000)2 рассчитать подробно

MOGZ ответил