Var
i,s,t,koldney:integer;
begin
writeln('введите количество дней');
readln(koldney);
for i:=1 to koldney do
begin
writeln('введите температуру в ', i, ' день');
readln(t);
if t<0 then
s:=s+1;
end;
writeln('количество дней с температурой ниже 0 = ', s);
readln;
end.
Посути вроде нужно 252 10сс перевести в 25сс пусть будет число из 2х символов
64=2^6 --> 6 бит информации несёт сообщение о номере каждой полки, в том числе и №8.
ответ : 6 бит
В пароле используется 13+10=23 различных символов
Для кодирования 1 символа необходимо log(2)23≈5 бит
Для хранения 1 пароля: 8*5 = 40 бит = 40/8 байт = 5 байт
Для 80 паролей: 80*5=400 байт