Каждый сотрудник предприятия получает электронный пропуск, на котором записаны личный код сотрудника и срок действия пропуска. личный код состоит из 22 символов, каждый из которых может быть одной из 26 заглавных латинских букв. для записи кода на пропуске отведено минимально возможное целое число байтов, при этом используют посимвольное кодирование, все символы кодируют одинаковым минимально возможным количеством битов. срок действия записывается как номер года (число от 0 до 99, означающее год от 2000 до 2099) и номер дня в году (число от 1 до 366 номер года и номер дня записаны на пропуске как двоичные числа, каждое из них занимает минимально возможное число битов, а два числа вместе – минимально возможное число байтов. сколько байтов занимает вся информация на пропуске? в ответе запишите только целое число – количество байтов.

16

Объяснение:

1. Алфавит мощностью 26 символов требует для кодирования символа 5 бит (2⁴ < 26 < 2⁵). 22 символа займут 22×5 = 110 бит = 110 / 8 = 13.75 байта, округляем до целого вверх, получаем 14 байт.

2. Номер года обозначается одним из 100 чисел. 2⁶ < 100 > 2⁷, поэтому для кодирования требуется 7 бит.

3. Номер для обозначается одним из 366 чисел. 2⁸ < 366 > 2⁹, поэтому для кодирования требуется 9 бит.

4. Всего для кодирования срока действия потребуется 7+9 = 16 бит = 16/2 = 2 байта

5. Вся информация на пропуске займет 14+2 = 16 байт

Запись 5 строк в файл }

procedure TForm1.Button1Click(Sender: TObject);

var outfile: TextFile;

begin

AssignFile(outfile, 'outfile.txt')

;Rewrite(outfile);

writeln(outfile, 'Привет из Delphi');

writeln(outfile, 'Моя программа работает, и выводит '

+'данный текст, чтобы доказать это...');

writeln(outfile, '3. Треться строка');

writeln(outfile, '234 четвертая');

writeln(outfile, 'Пятая строка');

CloseFile(outfile);

end;

// вывод на экран точнее в мемо или лист бокс

procedure TForm1.Button2Click(Sender: TObject);

begin

// выводим в мемо

Memo1.Lines.LoadFromFile('outfile.txt');

// либо в лист бокс как тебе лучше

ListBox1.Items.LoadFromFile('outfile.txt');

end;

// кнопка для закрытия

procedure TForm1.Button3Click(Sender: TObject);

begin

Close;

end;

// событие onClose

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);

begin

if MessageDlg('Вы точно хотите выйти?', mtConfirmation, mbOkCancel,0)= mrOk then begin

CloseAction:= caFree;

end

else begin

CloseAction:= caNone;

end;

end;

ЗДЕСЬ!

outfile.txt - это ваш файл(может создаваться автоматически

Объяснение:

Алгоритм приготовления яичницы:

1.НАЧАЛО

2.Взять чистую сковороду

3.Поставить сковороду на огонь.

4.Налить немного масла

5.Если масло разогрелось, то перейти к шагу 8

6.Подождать 2 минуты

7.Перейти к шагу 5.

8. Разбить на сковороду 3 яйца

9. Уменьшить огонь до минимума

10. Посолить яичницу

11. Накрыть сковороду крышкой (я люблю прожаренные и сверху)

12. Подождать 7 минут.

13. Снять сковороду с огня.

14. Выложить яичницу на тарелку.

15. Положить на тарелку по вкусу майонез, лук, колбасу и проч.

16. Приятного аппетита!

17. КОНЕЦ