Алфавит 64 символа
1 символ кодируется по формуле
=> 64=2^6
каждый символ 6 бит.
т.к текст 2000 символов то вес документа
2000х6 бит = 12000 бит
Переведем биты в байты 12000 бит-1500 байт (файл)
1500 байт/50 байт/c = 30 секунд!
От 8 литрового сосуда отлить 5 литров в 5литровый сосуд. <span>
Из 5литрового сосуда отлить 3 литра в 3литровый
сосуд.
Эти же три литра вылей назад в 8-литровый сосуд.
Из 5литрового сосуда вылей оставшиеся 2 литра в 3литровый сосуд.
Из 8литрового сосуда вылей 5 литров в 5литровый сосуд, а литр из 5литрового
сосуда перелей в 3литровый (в 5литровом
сосуде должно остаться 4 литра).
Из 3литрового сосуда перелей 3 литра назад в 8литровый сосуд.
</span>Все. Должно быть поровну
Если чётное, в конце (младший разряд) 0. На 4 - два нуля. На 8 - три. На 32 - пять нулей.
program raf105;
var
dr: real;
day: integer;
a,b: boolean;
begin
dr:= 0.75;
while not(a) or not(b) do
begin
day:= day+1;
dr:= dr + dr/100*160;
dr:= dr - 0.6;
if day = 6
then begin
writeln('а) Через 6 дней в установке будет ',dr:0:2,' т. дрожжей');
a:= True;
end;
if (dr >= 9) and not(b)
then begin
writeln('б) Через ',day,' суток масса дрожжей достигнет порога 9 т.');
b:= True;
end;
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>
Это событие нажатия на кнопку, которая находится на Form1.