Program n1;
uses crt;
const nn=1000;
var
i,j,n,k:integer;
m: array[1..nn,1..nn] of integer;
begin
randomize;
writeln('Введите размерность массива'); readln(n);
for i:=1 to n do
for j:=1 to n do m[i,j]:=random(100)-50;
for i:=1 to n do begin
for j:=1 to n do write(m[i,j]:4,' ');
writeln; end;
for i:=1 to n do
for j:=1 to n do
if (i=j) and (m[i,j]>0) then k:=k+1;
writeln(k);
<span>end.</span>
1. В высказывании 52 символа (включая пробелы и точку). Значит объем равен 52*8 = 416 бит
2. В первом тексте каждый символ кодируется 4-мя битами, т.к. 2^4=16, во втором тексте каждый символ кодируется 8-ю битами, т.к. 2^8=256.
Длины одинаковые, значит информационный объем первого текста в два раза меньше.
<em>Алгоритм деления отрезка AB пополам:</em>
<span>1) поставить ножку циркуля в точку А;</span>
<span>2) установить раствор циркуля равным длине отрезка АВ;</span>
<span>3) провести окружность;</span>
<span>4) поставить ножку циркуля в точку В;</span>
<span>5) провести окружность;</span>
<span>6) через точки пересечения окружностей провести прямую;</span>
<span>7) отметить точку пересечения этой прямой с отрезком АВ.</span>
<span>
</span>
<span>Было у нас такое на зачете :D</span>
Var
a:array[1..12]of integer;
m, n:integer;
Begin
a[1]:=31;a[7]:=31;
a[2]:=28;a[8]:=31;
a[3]:=31;a[9]:=30;
a[4]:=30;a[10]:=31;
a[5]:=31;a[11]:=30;
a[6]:=30;a[12]:=31;
Write('Введите номер месяца -> ');
Readln(m);
Write('Год високосный(1 - да || 0 - нет)?');
Readln(n);
if (m = 2) then Writeln(a[m] + n) else
Writeln(a[m]);
end.
250*8:2000= 1 бит информации несет каждый символ.
Раз 1 бит, значит символов 2^1=2.
