ответ: точно также как из других систем счисление, например, также как из двоичной в 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.
2.а)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
