Procedure TForm1.Button1Click(Sender: TObject); var a, b, x :real; begin a := StrToFloat(Edit1.Text); b := StrToFloat(Edit2.Text); x := a - b; Label1.Caption := FloatToStr(x); end;
1. В сообщении 110 символов, всего 440 бит. Найдем количество бит на символ 440/110 = 4 бит 2. Мощность алфавита = 2 в степени количества бит= 2⁴ = 16 Ответ: 16