гришин-почтальон
алексеев-маляр
иванов-парикмахер
сидоров-мельник
петров-плотник
<em>ВОТ У МЕНЯ ТАК ПОЛУЧИЛОСЬ</em>
У тебя нет значения "then"
а где его нужно написать- зависит от условия задачи
var
c, k, n: integer;
begin
writeln('Введите процент: ');
readln(n);
while k < 100 do
begin
k := k + n;
inc(c);
end;
writeln(c * 12, ' мес.');
<span>end.</span>
64 = 2^6, поэтому на 1 символ отводится 6 бит.
Всего символов на странице 40 * 60, на трёх страницах — 3 * 40 * 60, объем информации в битах равен 6 * 3 * 40 * 60.
В одном байте 8 бит, значит, количество информации 6 * 3 * 5 * 60 байт = 5400 байт.
Ответ. 5400 байт
4 бита
каждый принимает по 2 значения
значит всего вариантов 2*2*2*2 = 16