Var a: array[0..10] of integer; i, n, k: integer; // b: array[1..4, 1..4] of integer;
begin Println(); Println(1); for i := 0 to 10 do A[i] := i + 1; PrintLn(a); Println(); for i := 1 to 10 do begin A[i] := A[i - 1]; PrintLn(a); end;
Println(); Println(2); for i := 0 to 10 do A[i] := i + 1; PrintLn(a); Println(); for i := 10 downto 0 do begin A[i] := A[10 - i]; PrintLn(a); end; end.
Вначале нужно перевести в десятичную, а уже оттуда в семеричную.
154 = 4*6^0 + 5*6^1 + 1*6^2 = 4+30+36=70 - это десятичная
70/7=10(0)
10/7=1(3)
Записываем снизу-вверх: 130
ответ: 130