Держи.Только я незнаю,является ли ноль положительным числом
5 битов, т.к. 2⁵ = 32 и этого хватит для 30 символов
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 у меня сейчас нет, так что проверяйте сами. Если что не так - сообщайте.
Если я правильно понял формулу то решение будет такое.
program zadacha_1;
var
z, c, v: real;
i, x, y, t : integer;
begin
writeln('Введите Х: ');
read(x);
writeln('Введите Y: ');
read(y);
writeln('Введите T: ');
read(t);
c:=((x * x * x) + (2 * t) + (3 * sqrt(y)));
z:=cos(c) + sin(c);
v:=7*exp(1);
for i:=2 to x do v:=v*v;
z:=z+v;
writeln('Результат равен ', z);
end.
Формула для вычисления количества информации: . Вычислим объем информации в письме племени Мульти. К = 17, так как используется 17-символьный алфавит. N = 100, так как в письме 100 символов. Получается Тогда, раз , то I = 500 бит.
Вычислим объем информации в пиьме племени Пульти. бит. Значит, в письме племени Мульти содержится в два раза больше информации.