ну если не надо еще в какие-нибудь другие единицы то правильно, но ты понял как добавить еще точности, так ведь?
10<span>000000</span>11<span>100000</span>11<span>100010</span>11<span>100011</span>11<span>100000</span>10<span>001010</span>10<span>101110</span>10<span>101101</span>10<span>100000</span>10<span>101101</span>10<span>000100</span>10<span>101110</span>10<span>101001</span>10<span>101011</span>11<span>101100</span>
Это перевод в двоичный код ( так процессор компьютера понимает символы которые мы вводим на клавиатуре ).
Переводим из двоичной в десятичную систему и получаем :
A=18
B=15
C=20
D=24
ответ D
Смежные файлы можно выделить с SHIFT, а не смежные с CTRL
Первая
var n,a:integer;
begin
a:=0;
WriteLn(n);
while n>0 do
begin
a:=a + (n mod 10);
n:=n div 10;
end;
end.
Вторая
var n,a:integer;
begin
a:=0;
WriteLn(n);
while n>0 do
begin
if n mod 10>5 then
begin
a:=a + (n mod 10);
end;
n:=n div 10;
end;
end.