Если используется 60 различных символов, то для кодирования одного символа требуется log(2)60 ≈ 6 бит
Для кодирование 50 символов нужно 50*6=300 бит
Var s: string;
<span> n,k: integer;
</span><span>begin
</span><span> write('строка: '); readln(s);
</span><span> n:=pos(' ',s);
</span><span> if n>0 then
</span><span> begin
</span><span> writeln('первая буква второго слова: ',s[n+1]);
</span><span> writeln('последняя буква: ',s[length(s)]);
</span><span> writeln('количество букв: ',length(s)-n);
</span><span> k:=0;
</span><span> for n:=1 to length(s) do
</span><span> if s[n]='a' then k:=k+1;
</span><span> if k>0 then writeln('количество букв a: ',k)
</span><span> else writeln('в строке нет буквы a');
</span><span> end
</span><span> else writeln('в строке одно слово');
</span><span>end.
</span><span>
</span>
Const
n=5;m=7;
var
a:array[1..n,1..m]of integer;
b:array[1..n*m]of integer;
i,j,buf,k:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
k:=k+1;
b[k]:=a[i,j];
end;
writeln;
end;
writeln;
for i:=1 to n*m-1 do
for j:=i+1 to n*m do
if b[i]>b[j] then
begin<span>
buf:=b[i];</span>
b[i]:=b[j];
b[j]:=buf;
end;
for i:=1 to m*n do<span>
write(b[i]:4);
end.</span>
1. Сначала берём хлеб.
2. Потом нож.
3. Далее масло.
4. А потом намазываем на хлеб ножом масло!
1. 1 или 1 =1, 1 или 0 = 1. 1 или 1= 1. Ответ: 1.
2. 0 или 1 = 1. 1 или 0 = 1. 1 или 1 = 1. Ответ: 1
3. 1 и 1 = 1. 1 и 1= 1. 1 и 1 = 1. Ответ: 1
4. 1 и 0 = 0. 1 и 0= 0. 0 или 0 =0. 0 или 1 = 1. Ответ: 1