Прочитайте теоретический материал и найдите ошибки в тексте.

Бит - это не единственная количественная характеристика информации. Для измерения

компьютерной информации служит шестнадцатеричное число - байт.

Байт – самая маленькая единица информации, с которой кодируют 2 символа.

1байт= 16 бит;

1Кбайт (килобайт) = 1024 или 220

байт;

1Мбайт (мегабайт) =1 048 856 или 220 бит;

1Гбайт (гигабайт) =1 073 741 824 или 230бaйт;

1Тбайт (тегабайт) = 1 099 511 627 776 или 240 байт.

Символьная (алфавитно-цифровая) информация в компьютере представляется посредством

восьмиразрядных двоичных кодов. Полное число кодовых комбинаций нулей и единиц в этом случае

составляет 29

= 512. Один разряд двоичной информации принимается за 2 бита. Последовательность

из 8 двоичных разрядов кода информации в ЭВМ осуществляется 8-разрядным двоичным кодом, т.е.

каждому входному символу соответствует 2 байта информации.​

//Pascal ABC.NET 3.1 сборка 1219

Var
 k,n,max:integer;

 procedure hase(var k,n,max:integer); //сама последовательность
 begin
  if not(odd(n)) then n:=n div 2 else n:=n*3+1; //условие про чётность
  writeln(n); //вывод нового члена последовательности
  inc(k); //увеличение значения счётчика шагов
  if max<n then max:=n; //поиск вершины
 end;

  procedure start(var k,n,max:integer); //название процедуры намекает
 begin
  readln(n);
  k:=0;
  writeln('Seq:');
  max:=integer.MinValue;
  while n<>1 do
  hase(k,n,max);
  writeln('Шаги:',k);
  writeln('Вершина:',max);
 end;
 begin
 start(k,n,max);
end.
Пример ввода:
6
Пример вывода:
Seq:
3
10
5
16
8
4
2
1
Шаги:8
Вершина:16

//Pascal ABC.NET 3.1 сборка 1219

uses
 system,system.Windows.Forms;

Var
 dat:DateTime;
 myForm:Form;
 myButton:Button;
 myTextBox:TextBox;

 procedure MyButtonClick(sender:Object;e:EventArgs);
  begin {при каждом нажатии на кнопку значение dat обновляется и выводится в текстовое поле}
 dat:=datetime.Now;
 myTextBox.Text:=dat.ToString;
 end;
 begin
  myForm:=new Form; //создание объекта - формы
   myform.Left:=500;
   myform.top:=500;
   myform.AutoSize:=true;
   myform.Width:=300;
   myform.Height:=100;
  myTextBox:=new TextBox; //создание объекта - текстового поля
  myTextBox.Left:=80;
   myTextBox.Top:=40;
   myTextBox.Enabled:=true;
   myTextBox.Width:=105;
   myTextBox.Height:=100;
   myTextBox.MaxLength:=16;
   myTextBox.ReadOnly:=false;
   myTextBox.Visible:=true;
  myButton:=new Button; //создание объекта - кнопки
   myButton.Text:='Now';
   myButton.Left:=80;
   myButton.top:=80;
   myButton.AutoSize:=true;
   myForm.Controls.Add(myButton); //вешаем на форму кнопку и поле
   myForm.Controls.Add(myTextBox);
   myButton.click+=MyButtonClick; //присваиваем событие при нажатии на кнопку
   Application.Run(myForm);
end.