Результат:
-24.5(10) =-11 000.1(2)
Приведем целую часть числа - 24.5 в систему счисления 2 последовательным делением на число 2:
-24/2=-12 остаток 0
-12/2=-6 остаток 0
-6/2=-3 остаток 0
-3/2=-1 остаток 1
-1/2=0 остаток 1
Записав полученные цифры в ряд снизу вверх, получим:
-24(10) =-11000(2)
Приведем дробную часть числа - 24.5 в систему счисления 2 последовательным умножением на число 2:
-0.5•2=-1.=0.+1
Записав полученные цифры в ряд сверху вниз, получим:
-0.5(10) =-0.1(2)
Объединив целые и дробные части, получим решение:
-24.5(10) =-11000.1(2)
Если ты хочешь, чтобы я написал программу на языке программирования Pascal, тогда держи:
1) Если ты говоришь про разряд единиц, тогда вот программа:
Program pofignanazvanieprogrammi_1_1;
Var a:integer;
Begin
write('Введите число -> ');
readln(a);
writeln(a mod 10);
End.
А если про разряд сотен тысяч, тогда:
Program pofignanazvanieprogrammi_1_2;
writeln(a div 100000);
2) Угу, это легче.
Program chto_2;
Var a,S:integer;
S:=0;
while a>=0 do
begin
S:=S+(a mod 10);
a:=a div 10;
end;
writeln(S);
Результат:
-24.5(10) =-11 000.1(2)
Приведем целую часть числа - 24.5 в систему счисления 2 последовательным делением на число 2:
-24/2=-12 остаток 0
-12/2=-6 остаток 0
-6/2=-3 остаток 0
-3/2=-1 остаток 1
-1/2=0 остаток 1
Записав полученные цифры в ряд снизу вверх, получим:
-24(10) =-11000(2)
Приведем дробную часть числа - 24.5 в систему счисления 2 последовательным умножением на число 2:
-0.5•2=-1.=0.+1
Записав полученные цифры в ряд сверху вниз, получим:
-0.5(10) =-0.1(2)
Объединив целые и дробные части, получим решение:
-24.5(10) =-11000.1(2)
Если ты хочешь, чтобы я написал программу на языке программирования Pascal, тогда держи:
1) Если ты говоришь про разряд единиц, тогда вот программа:
Program pofignanazvanieprogrammi_1_1;
Var a:integer;
Begin
write('Введите число -> ');
readln(a);
writeln(a mod 10);
End.
А если про разряд сотен тысяч, тогда:
Program pofignanazvanieprogrammi_1_2;
Var a:integer;
Begin
write('Введите число -> ');
readln(a);
writeln(a div 100000);
End.
2) Угу, это легче.
Program chto_2;
Var a,S:integer;
Begin
S:=0;
write('Введите число -> ');
readln(a);
while a>=0 do
begin
S:=S+(a mod 10);
a:=a div 10;
end;
writeln(S);
End.