Program n_1;
var n,count:integer;
Begin
Write('введите натуральное полож.число n -');
read(n);
count:=0;
While n>0 do
Begin
n:=n div 10;
count:=count+1;
end;
write(count);
End.
Попробуй эту программу
Таблица истинности во вложении
//Больше всего проблем доставил звук
uses graphABC;
var
x , y : integer;
s : string;
begin;
x:= 1;
y:= windowheight-20;
s:= 'Важное сообщение';
while x<>windowwidth do
begin;
textout(x,y,s);
inc(x);
sleep(50);
clearwindow;
end;
system.Console.Beep(500,1000);
sleep(1000);
system.Console.Beep(500,1000);
<span>end.</span>
Количество различных значений температуры = 30-(-10)+1 = 41.
Для записи одного значения требуется log(2)41 ≈ 6 бит (2^6 = 64)
Объем результатов наблюдений = 365*6 бит = 2190 бит
1).1 символ=1 байт=16 бит
2). 16*24=384 бит
3).384/8=48 байт.
Ответ: 48 байт.
ИЛИ
символов 8;
2^n>=8; n=3(бит на одну букву)
8 бит= 24 байт
Ответ: 24 байт.
ЗАПУТАЛАСЬ СВОСЕМ. УЖ ОЧЕНЬ ДАВНО ТАКИЕ ЗАДАЧКИ НЕ РЕШАЛА.