Ответ: 100011111010, код может означать только слово "ДВОР"
Думаю так, седьмая задача, спрашивай, что непонятно :)
Ответ:
program Test;
var
n, t: Integer;
b: Boolean;
begin
Write ('Введите трехзначное число: ');
ReadLn (n);
if (n >= 100) and (n <= 999) then begin
if (n mod 10) mod 2 = 0 then
WriteLn ('четная')
else
WriteLn ('не четная');
end else
WriteLn (n, ' - не трехзначное');
ReadLn;
end.
В слове ПРИМЕР -6 символов
6*8 бит=48 бит или 6 байт