1)Здесь можно применить формулу
<span>2^i = N
</span>2)подставим под N=8
<span>2^i = 8
</span><span> i= 3 (здесь нужно посчитать что 2^3=2*2*2=8)
</span>Ответ: 3 бита одна буква
1100011101 - 797
10010 - 18
797:18=44,2(7)
Const
N = 30;
Var
T:array[1..N] of integer;
i,k:integer;
Begin
Write('Температура в течение месяца:');
k:=0;
For i:= 1 to N do
Begin
T[i]:=random(20)-15;
Write(' ',T[i]);
if T[i] < 0 then k:=k+1;
End;
WriteLn;
WriteLn('Количество дней, когда температура опускалась ниже нуля: ',k);
End.
Пример работы программы:
Температура в течение месяца: -3 -5 -4 1 -11 -5 0 2 2 4 3 -6 -7 -4 -14 -11 -15 -14 -15 0 -7 -14 -13 -13 -12 -1 -3 -13 -15 -5
Количество дней, когда температура опускалась ниже нуля: 23
<u><em>Borland Pascal 7</em></u>
uses Crt;
var
a,b,c:real;
begin
ClrScr;
a:=-1/7; b:=1/25; c:=0.2;
Writeln((a*b*c-sqrt(b))/(2.5-abs(a)));
ReadKey
end.
Результат выполнения программы:
-8.5333333333E-02