Найти основание системы счисления. 990 / 60 = 1110

2- основание системы счисления

Работа не моя: program raketa; uses graph;   var gd,gm: integer; begin   detectgraph (gd,gm);   initgraph (gd,gm,'c: \tp7 ');   line (300,60,240,120);   line (240,120,240,360);   line (360,120,360,360);   line (240,360,360,360);   line (300,60,360,120);   line (240,210,210,240);   line (210,240,240,240);   line (360,210,390,240);   line (390,240,360,240);   circle (300,150,15);   circle (300,210,15);   circle (300,270,15);   bar (270,300,240,360);   line (240,360,180,450);   line (180,450,420,450);   line (420,450,360,360);   line (330,450,330,370);   line (300,450,300,365);   line (270,450,270,370);   line (240,330,180,330);   line (180,330,90,450);   line (172,330,80,445);   line (300,60,300,30); readln end.

//pascalabc.net 3.2 сборка 1318 //а begin   writeln('введите размерность: ');   var n: =readinteger();   writeln('введите массив: ');   var ar: =readarrinteger(n);   ar.transform(x -> x*10);   ar.print; end. //б begin   writeln('введите размерность');   var n: =readinteger();   writeln('введите массив: ');   var ar: =readarrinteger(n);   for var i: =0 to n-1 do             //индексация с 0     if ar[i]< 0 then ar[i]: =i;   ar.print; end.