Сначала переводим 8-чное число 5237 в двоичное = 5237(8) = 101010011111(2). Дальше справа налево проставляем в даоичном числе числа, начиная с нуля:
101010011111
11 10 9 8 7 6 5 4 3 2 1 0 (на фото лучше было бы видно, сорри). И если на каком-то месте стоит 1, то возводим 2 в соотвествующую степень. Получаем 2^11 + 2^9 + 2^7 + 2^4 + 2^3 + 2^2 + 2^1 + 2^0 = 2719(10)
Например меня зовут....
или я сегодня получила 5 по математике
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var a:=ArrRandom(10,-5,15); a.Println;
Writeln('Сумма элементов с нечетными индексами равна ',
Range(0,9,2).Select(i->a.ElementAt(i)).Sum)
end.
<u><em>Тестовое решение:</em></u>
11 -3 3 8 8 14 8 12 15 2
Сумма элементов с нечетными индексами равна 45
uses GraphABC;
var n:integer;
begin
writeln('Введите номер фигуры (1-квадрат, 2-треугольник, 3-круг):');
readln(n);
setwindowsize (640,480);
setpencolor (clBlue);
setpenwidth (4);
case n of
1: begin
setwindowtitle ('квадрат');
rectangle(200,100,400,300);
end;
2: begin
setwindowtitle ('треугольник');
Line(300,50,30,400);
Line(30,400,570,400);
Line(570,400,300,50);
end;
3: begin
setwindowtitle ('круг');
circle(300,200,120);
end;
end;
end.
По-строчно перебираем элементы матрицы (внешний цикл отвечает за переход к новой строке, счетчик - первый индекс элементов).Во внешнем цикле перед внутренним присваиваем переменной для суммы значение 0. В ней будет накапливаться сумма элементов текущей строки, элементы которой перебираются во внутреннем цикле.После внутреннего цикла выводим значение переменной-суммы на экран.