Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в заданную систему счисления с любым основанием от 2 до 36. используйте процедуру. входные данные входная строка содержит целое число n и основание системы счисления b , разделённые пробелом. гарантируется, что 2 ≤ b ≤ 36 . выходные данные программа должна вывести представление переданного её числа n в системе счисления с основанием b . при записи чисел в системах с основанием большим 10 используются прописные латинские буквы.
примеры
входные данные
13 3
выходные данные
111
входные данные
-34 18
выходные данные
-1g

5.5  8.8  9.8  11.6  12.7  11.7  11.2  9.3  10.3  10.4  7.4  7.2  5.2  5.3  6.3  6.9  7.8  2.8  2.9  3.9  3.6  4.5      а вот как переводить: с конца над числом в двоичной системе пишешь: 1,2,4, и.т.д      если  единичка есть-прибавляешь это число. если единички нет-ничего не прибавляешь.

например- 1011    8+0+2+1=11            1000      8+0+0+0=8    111   4+2+1=7   11      2+1=3      10    2+0=2                10011101      128+0+0+16+8+4+0+1=157  а твои числа все в уме считаются.проверь может я ошиблась где нибудь)

var a: array[1..100] of integer;

i,s,n,m: integer;

begin

  randomize;

  read(n,m);

  for i : = 1 to 100 do

  begin

        a[i]: =random(m-n) +n;

        if (i mod 2 =0) and (a[i] mod 2 = 0) then s: =s+1;

  end;

  writeln(s);

end.

2048 бит : 8: 1024= 0.25 кбайт

4k+2m+1=41

k+m+1=15

4k+2m=40

k+m=14

2k+m=20

-k-m=-14

k=6