Помните Придумай собственную позиционнуб систему счисления, с произвольным основанием от 2,8, 16 и 10 - id1413290420210401 от Анигелятор228 01.04.2021 20:00

Question

Информатика: Помните Придумай собственную позиционнуб систему счисления, с произвольным основанием от 2,8, 16 и 10 выполни задания : 1. Запиши основание своей системы счисления и алфавит 2. Запиши числа 7, 123,10000 в своей системе счисления ​

Анигелятор228 · Accepted Answer

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

begin
var n:=ReadInteger('n=');
var a:=MatrGen(n,n,(i,j)->j=n-1-i?n-i:0);
a.Println(2)
end.

Примеры
n= 7
0 0 0 0 0 0 7
0 0 0 0 0 6 0
0 0 0 0 5 0 0
0 0 0 4 0 0 0
0 0 3 0 0 0 0
0 2 0 0 0 0 0
1 0 0 0 0 0 0

n= 12
0 0 0 0 0 0 0 0 0 0 0 12
0 0 0 0 0 0 0 0 0 0 11 0
0 0 0 0 0 0 0 0 0 10 0 0
0 0 0 0 0 0 0 0 9 0 0 0
0 0 0 0 0 0 0 8 0 0 0 0
0 0 0 0 0 0 7 0 0 0 0 0
0 0 0 0 0 6 0 0 0 0 0 0
0 0 0 0 5 0 0 0 0 0 0 0
0 0 0 4 0 0 0 0 0 0 0 0
0 0 3 0 0 0 0 0 0 0 0 0
0 2 0 0 0 0 0 0 0 0 0 0
1 0 0 0 0 0 0 0 0 0 0 0

MOGZ ответил