program n_1;
uses crt;
var
n: longint;
k: integer;
function Sym(n: integer): char;
begin
case n of
0..9: Sym := chr(48 + n);
10..36: Sym := chr(55 + n);
end;
end;
function funct(n: longint; k: integer): string;
var
st: string;
begin
st := '';
if n = 0 then st := '0' else
begin
while n >= 1 do
begin
st := Sym(n mod k) + st;
n := n div k;
end;
end;
DecToX := st;
end;
begin
readln(n);
repeat
readln(k);
until (2 <= k) and (k <= 36);
writeln(funct(n, k));
end.
Не знаю но может другие помогут
Положительные числа - от 1 до 7, их сумма 1+2..+7=28
отрицательные - от - 15 до -1, их произведение -(1*2*3*...*15) посчитаешь на калькуляторе
Общее количество строк и столбцов на листе : 1 048 576 строк и 16 384 столбца. Можешь проверить на офф.сайте Майкрософт
200 = 11001000
543 = 1000011111
950 = 1110110110
1025 = 10000000001