Дано целое число N и набор из N целых чисел. Найти количество элементов,
расположенных после последнего максимального элемента

Переводим целую часть 512(10) в 8-ую систему последовательным делением на 8:

512/8 = 64, остаток: 0

64/8 = 8, остаток: 0

8/8 = 1, остаток: 0

1/8 = 0, остаток: 1

512(10) = 1000(8)

Переводим целую часть 512(10) в 16-ую систему последовательным делением на 16:

512/16 = 32, остаток: 0

32/16 = 2, остаток: 0

2/16 = 0, остаток: 2

512(10) = 200(16)

Переводим целую часть 47110 в 8-ую систему последовательным делением на 8:

471/8 = 58, остаток: 7

58/8 = 7, остаток: 2

7/8 = 0, остаток: 7

471(10) = 727(8)

Переводим целую часть 471(10) в 16-ую систему последовательным делением на 16:

471/16 = 29, остаток: 7

29/16 = 1, остаток: 13, 13 = D

1/16 = 0, остаток: 1

471(10) = 1D7(16)

Переводим целую часть 812(10) в 8-ую систему последовательным делением на 8:

812/8 = 101, остаток: 4

101/8 = 12, остаток: 5

12/8 = 1, остаток: 4

1/8 = 0, остаток: 1

812(10) = 1454(8)

Переводим целую часть 812(10) в 16-ую систему последовательным делением на 16:

812/16 = 50, остаток: 12, 12 = C

50/16 = 3, остаток: 2

3/16 = 0, остаток: 3

812(10) = 32C(16)

Переводим 346(8) в десятичную систему:

346(8) = 3·8:2+4·8:1+6·1 = 230(10)

Переводим 751(8) в десятичную систему:

751(8) = 7·8^2+5·8^1+1·1 = 489(10)

Переводим 247(8) в десятичную систему:

247(8) = 2·8^2+4·8^1+7·1 = 167(10)

Переводим 8A(16) в десятичную систему:

8A(16) = 8·16^1+10·1 = 138(10)

Переводим FB(16) в десятичную систему:

FB(16) = 15·16^1+11·1 = 251(10)

Переводим 19F(16) в десятичную систему:

19F(16) = 1·16^2+9·16^1+15·1 = 415(10)

Объяснение:

Решение больше математическое получилось с выводом формулы, там уж сами выберете как вам лучше.
На каждый следующий день спортсмен пробегает в

большее расстояние чем в предыдущий.
Т.е. если обобщить:

Расстояние, которое спортсмен пробегает каждый n-ный день.
В итоге, у нас получилась геометрическая прогрессия, где


Чтобы найти сумму первых n членов геометрической прогрессии:

В программе пишем:
_________________________
var
i:integer;
k:double;
begin
k:=1.1;
for i:=1 to 6 do k:=k*1.1;
writeln(100*(k-1):0:2);
end.
__________________________