N в степени i = 2 в степени i ( N=кол-во символов)
32i=2i
2 в 5 степени =2 в степени i
2 в 5 степени = 2 в 5 степени
<span>Следовательно i=5 бит на 1 символ</span>
Часы на циферблате: если использовать 24- часовую, то 8+7=15
Program Summa;
Uses Crt;
var i,s:integer;
begin
clrscr;
i:=10;s:=0;
write('Двухзначные числа кратные 5: ');
while(i<=50) do
begin
write(i,' ');
s:=s+i;
i:=i+5;
end;
writeln;
writeln('Сумма 10 двухзначных чисел кратных 5: ',s);
readkey;
end.
<u /><em></em><em>VAR</em>
<em> n, m, sum, i, j: Integer;</em>
<em> a: Array [1..10000] of Array [1..10000] of Integer;</em>
<em>BEGIN</em>
<em> Read(n, m);</em>
<em></em>
<em> For i := 1 to n do</em>
<em> For j := 1 to m do Read(a[i][j]);</em>
<em></em>
<em> For i := 1 to n do</em>
<em> For j := 1 to m do</em>
<em> If (a[i][j] > 0) then sum := sum + a[i][j];</em>
<em></em>
<em> Write(sum);</em>
<em>END. </em>
<em></em>
<u>Но для экономии времени и сил можно не создавать массив:</u>
<em>VAR</em>
<span><em> n, m, sum, el, i, j: Integer;</em></span>
<em>BEGIN</em>
<span><em> Read(n, m);</em></span>
<em></em>
<span><em> For i := 1 to n do</em></span>
<span><em> For j := 1 to m do begin </em></span>
<span><em> Read(el);</em></span>
<span><em> If (el > 0) then sum := sum + el;</em></span>
<span><em> End;</em></span>
<em></em>
<span><em> Write(sum);</em></span>
<em>END.</em>
Организация двоичной системы исчисления такая же как и десятичной с одним лишь исключением: в десятичной 10 цифр (от 0 до 9), а в двоичной всего две цифры (0 и 1). При переходе из младшего разряда в соседний старший разряд в десятичной системе происходит умножение на 10, а в двоичной системе - умножение на 2. То есть например:
123 в десятичной = 1*100 + 2*10 + 3*1,
а в двоичной, например 101 = 1*(2*2) + 0*2 + 1*1 = 4+1=5, то есть
101(в двоичной) = 5 (в десятичной).
Для числа три,
3 = 2 + 1 = 1*2 + 1 = (11)(в двоичной).
В приложении файл изображения, там табличка соответствия первых натуральных чисел в десятичной и двоичной системе.
