3072/1536 и ответ это мощность использованного алфавита
Const
N = 3;
M = 4;
Var
A:array[0..N-1,0..M-1] of integer;
i,j,k:integer;
Begin
For i:= 0 to N-1 do
For j:= 0 to M-1 do
if i*j = 0 then A[i,j]:=1;
if M>N then k:=M
else k:=N;
For k:= 1 to k-1 do
For i:= 1 to N-1 do
For j:= 1 to M-1 do
if (i = k)or(j = k) then
A[i,j]:=A[i-1,j]+A[i,j-1];
For i:= 0 to N-1 do
For j:= 0 to M-1 do
Write(A[i,j],' ');
End.
Procedure TForm1.Button4Click(Sender: TObject);
var Buff: TNodePointer;
x: TItem;
i,j: Cardinal;
begin
i:=0;
Buff:=Head;
if(Buff^.Next=nil) then
begin
ShowMessage('В стеке один элемент!');
exit;
end;
while Buff <> nil do
begin
while (Buff^.Next<>nil) and (Buff^.Data=Buff^.Next^.Data) and not(isEmpty(Buff)) do
begin
pop(Buff^.Next,x);
for j:=i to StringGrid1.RowCount-2 do
StringGrid1.Cells[0,j]:=StringGrid1.Cells[0,j+1];
StringGrid1.RowCount:=StringGrid1.RowCount-1;
end;
Buff:=Buff^.Next;
i:=i+1;
end;
end;
PS. Delphi у меня сейчас нет, так что проверяйте сами. Если что не так - сообщайте.
ТАВ-тактильная. А-аудильная В-визеальная.Вроде так.
1) 5 Кбайт= 5*1024 *8 бит= 40 960 бит
2) 40 960 : 10 240 = 4 бита ~ 1 символ
2) 2^4=16 символов в алфавите ( или - мощность алфавита)
ответ 16