Напишіть програму, яка виводить значення елементів табличної величини з 7 чисел, що містяться в рядках багаторядкового текстового поля, в інше багаторядкове текстове поле.

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. Определим скорость передачи в Мб/с

1 байт = 8 = 2³ бит.

1 Мбайт = (2¹⁰)² = 2²⁰ байт = 2²⁰ × 2³ = 2²³ бит.

Скорость 2¹⁸ бит/с равна 2¹⁸ / 2²³ = 2⁻⁶ Мбайт/с

2. Определим время, необходимое для передачи файла по А

10 Мбайт / 2⁻⁶ Мбайт/с = 10 × 32 с = 320 с

3. Определим время, необходимое для передачи файла по Б.

Объем файла после архивации составит 30% от объема исходного, следовательно и время передачи файла также будет составлять 30% от времени по варианту А.

320 с × 0.3 = 96 с

И еще 7 + 1 = 8 с нужны на подготовку файла.

Итого, время по варианту Б составит 96 + 8 = 104 с.

4. По варианту Б время меньше на 320 - 104 = 216 с, т.е. этот вариант быстрее.

ответ: Б216

Объяснение:

как то так)))