Данил дорохов для тебя пишу

var a : array[1..3] of integer;
i, indmineven, k : integer;
begin
repeat
writeln('введите три цифры, не менее одной чётной и хотя одну - не равную нулю');
readln(a[1],a[2],a[3]);
until ((a[1]< > 0) or (a[2]< > 0) or (a[3]< > 0))
and not (odd(a[1]) and odd(a[2]) and odd(
and (a[1] in [0..9]) and (a[2] in [0..9]) and (a[3] in [0..9]);

indmineven : = -1;
for i: =1 to 3 do
if not odd(a[i]) then begin
if indmineven< 0 then indmineven : = i
else
if a[i] end;
if indmineven < > 3 then begin
k : = a[indmineven];
a[indmineven] : = a[3];
a[3] : = k
end;
if a[1] then writeln(a[2],a[1],a[3])
else writeln(a[1],a[2],a[3]);
end.

Прога написанная в codeblocks: #include < iostream> using namespace std; int main() {          setlocale(lc_all,"russian");           int a[20];           int b, c, i, q=0;           for(i=1; i< 21; i++)          {                  cout< < "введите "< < i< < " число: ";                   cin> > a[i];           }          cout< < "введите начальный номер элемента массива: ";     cin> > b;     cout< < "введите конечный номер элемента массива: ";     cin> > c;     for(int j=b; j< c+1; j++)          {                q+=a[j];         }          cout< < "cумма элементов массива с номерами с "< < b< < " по "< < c< < " равна: "< < q; } я надеюсь тебе была нужна прога на с++))

Объяснение:

1. Пронумеруем разряды:

3-й разряд - 4;

2-й разряд - 1;

1-й разряд - 5;

0-й разряд - 3.

4153₈=4·8³+1·8²+5·8¹+3·8⁰

2. 4153₈=4·8³+1·8²+5·8¹+3·8⁰=2048+16+40+3=2155₁₀

3. 125/8=15 (5)

15/8=1 (7)

(1)

125₁₀=175₈

4. Пронумеруем разряды:

2-й разряд - A;

1-й разряд - 6;

0-й разряд - E;

A6E₁₆=(10)(6)(14)=10·16²+6·16¹+14·16⁰

5. A6E₁₆=10·16²+6·16¹+14·16⁰=2560+96+14=2670₁₀

6. 350/16=21 (14=E)

21/16=1 (5)

(1)

350₁₀=15E₁₆

7. 247/2=123 (1)

123/2=61 (1)

61/2=30 (1)

30/2=15 (0)

15/2=7 (1)

7/2=3 (1)

3/2=1 (1)

(1)

247₁₀=11110111₂

247/8=30 (7)

30/8=3 (6)

(3)

247₁₀=367₈

247/16=7 (15=F)

(7)

247₁₀=7F₁₆

Получившиеся числа между собой равны, так как имеют одинаковое число в десятичной системе счисления.