Program n1;
var
sum, n: longint;
begin
sum:=0;
write('введите число: ');
readln(n);
sum:=n mod 10;
while n>10 do
n:=n div 10;
sum:=sum+n;
writeln('сумма 1 и последней цифр равна ',sum);
end.
011111
Объяснение:
31(10) = 11111(2)
для того, чтобы сделать 31 в отрицательное нужно перед двоичной записью этого числа поставить 0(он означает минус)
Очень просто решается. Пишешь число. Если оно чётное - то в двоичное представление идёт нолик, если нечётное - то единица.
Делишь это число пополам, пишешь его в следующую строку. И снова, чёт-нечет, 0-1
73 - 1 - это самый младший разряд, справа пишем его
36 - 0
18 - 0
9 - 1
4 - 0
2 - 0
1 - 1 - это старший разряд, слева
ответ - 1001001
7 бит
___________________________________________
Люди считали в уме и письменно наверн