В ПИТОНЕ!В ПИТОНЕ!В ПИТОНЕ!В ПИТОНЕ!В ПИТОНЕ!В ПИТОНЕ!

ответ: точно также как из других систем счисление, например, также как из двоичной в 10-тичную

Объяснение: 10001 в двоичной - это 17 в десятичной

в числе 10001 расставляем степени двойки начиная с конца и заканчивая началом, то есть это будет так:

4  3  2  1   0

1   0  0  0  1

после перемножаем все цифры из числа 10001 на двойку в этой степени(так как основанием двоичной системы счисления является число 2) , а после складываем:

1 * 2^4 + 0 * 2^3 + 0 * 2^2 + 0 * 2^1 + 1 * 2 ^0

в итоге у нас получается:

16 + 0 + 0 + 0 + 1 = 17

вот и всё, из 512-ричной в 10-тичную тоже самое, только основанием у 512-ричной системы счисления будет число 512

Число D - это число 13

следовательно в 10-ричной число D будет равно:

0

D(13)

13 * 512^0 = 13 * 1 = 13

program raf105;

var a,b,c:integer;

begin

write('Введите 3 числа: ');

readln(a,b,c);

if (a<b) and (a<c)

 then writeln('Произведение 2 наибольших чисел: ',b*c);

if (b<a) and (b<c)

 then writeln('Произведение 2 наибольших чисел: ',a*c);

if (c<b) and (c<a)

 then writeln('Произведение 2 наибольших чисел: ',b*a);

end.

program raf105;

var a,i,b:integer;

begin

write('Введите число: ');

readln(a);

for i:=1 to a do

 if ((a mod i)=0) and ((i mod 2)<>0)

   then b:= b+i;

writeln('Сумма нечётных делителей введённого числа: ',b);

end.

program raf105;

var a,a2,i,j,b:integer;

begin

write('Введите меньшее число: ');

readln(a);

write('Введите большее число: ');

readln(a2);

for j:=a to a2 do

begin

 for i:=1 to j do

   if ((j mod i)=0) and ((i mod 2)<>0)

     then b:= b+i;

writeln('Сумма нечётных делителей числа ',j,' равна: ',b);

b:= 0;

end;

end.

Язык программирования PascalABC