1.Назвать исполнителя следующих видов работ: продажа кондитерских изделий, пошив одежды. Сформулировать СКИ для каждого из этих исполнителей. 2. Записать алгоритм решения задачи в виде блок-схемы и псевдокода. Чтобы сварить 4 порции пшенной каши, нужно взять 220 г пшена, 1 л молока и 30 г сахара. Сколько потребуется этих продуктов, чтобы сварить N порций каши. 3. Записать алгоритм решения задачи в виде блок-схемы и псевдокода. Ввести 4 целых числа. Найти их произведение.

1. 240

2. 512

3. 36

Объяснение:

1. Cчитаем количество символов. Если с точкой, то получается 31. Один символ кодируется одним байтом, поэтому всё сообщение кодируется 31 байтом. Переводим в биты: 31*8=248 бит.

2. Чтобы получить мощность алфавита, сначала нужно узнать вес одного символа: 9 Кбайт переводим в биты (9*1024*8) и получаем 73728 бит.

Далее делим это число на количество символов (8192), получаем 9.

Ну а чтобы найти мощность алфавита, мы число 2 возводим в найденную 9, получим 512.

3. Сначала определим количество символов во всей статье: мы просто перемножаем 12, 32 и 48, получаем 18432.

Далее узнаём информационный объём в битах: 18432 умножаем на 16, получаем 294912. Чтобы это число перевести в килобайты, мы делим на 8, а потом ещё раз делим на 1024, получим 36 Кбайт.

Procedure TForm1.Button1Click(Sender: TObject);
begin
    If FontDialog.Execute then
        RichEdit1.SelAttributes.Assign(FontDialog1.Font);
        RichEdit1.SetFocus;
    End;
end;

делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
 Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
  RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится