var
N,sum,k: integer;
begin
sum:=0;
WriteLn('Введите N');
readln(N);
while N <=9 do
begin
writeln('Введите корректное число (больше или равное 10)');
readln(N);
end;
while N >=10 do
begin
k:= N mod 10;
N:= N div 10;
sum:= sum + k;
end;
sum:=sum + N;
write('Первая цифра числа ');
writeln(N);
write('Сума цифр числа ');
writeln(sum);
end.
64=2^6 --> 6 бит информации несёт сообщение о номере каждой полки, в том числе и №8.
ответ : 6 бит
Основные правила: слушать преподавателя. Взять вещи по его разрешению. Не бегать в кабинете. Во время перемены открыть дверь кабинета,что бы комната проветрилась. Если хотите выйти во время урока,поднимите руку,спросите разрешение и выйдите.