Всистеме счисления с некоторым основанием десятичное число 129 записывается как 1004. укажите это основание.

5

Var s: string; i,n: integer; begin readln(s); n: =length(s); i: =i+1; while i< =n do begin if (s[i]='«') or (s[i]='»') then begin delete(s,i,1); i: =i-1; n: =n-1; end; i: =i+1; end; writeln(s); end.var s,a,b: string; i,k,l,n: integer; beginreadln(s); n: =length(s); for i: =1 to n doif s[i]=' ' thenbegink: =i; break; end; for i: =n downto 1 doif s[i]=' ' thenbeginl: =i; break; end; a: =copy(s,1,k-1); b: =copy(s,l+1,n-l-1); delete(s,l,n-k); delete(s,1,k); s: =b+' '+s+' '+a+'.'; writeln(s); end.

Program n70231806_1; var a: array[ 1 .. 10 ] of shortint; i: byte; t: shortint; begin randomize; writeln('исходный массив: '); for i : = 1 to 10 do begin a[ i ] : = random(21) - 10; write(a[ i ]: 4) end; writeln; t : = a[ 10 ]; for i : = 10 downto 2 do a[ i ] : = a[ i - 1 ]; a[ 1 ] : = t; writeln('результат: '); for i : = 1 to 10 do write(a[ i ]: 4); readln end. 2) program n70231806_2; var a: array[ 1 .. 12 ] of shortint; i, j: byte; t: shortint; begin randomize; writeln('исходный массив: '); for i : = 1 to 12 do begin a[ i ] : = random(25) - 10; write(a[ i ]: 4) end; writeln; for j : = 1 to 4 do begin t : = a[ 12 ]; for i : = 12 downto 2 do a[ i ] : = a[ i - 1 ]; a[ 1 ] : = t end; writeln('результат: '); for i : = 1 to 12 do write(a[ i ]: 4); readln end.