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.
PascalABC 3.4.2
(2) =(теперь для того чтобы перевести из 2-ной в 10-ную,необходимо разложить число на множители, умножая на основание данной с.с и расставляя степень числа)1*
+1*
+0*
+0*
=(затем возводим основание с.с в степень данного числа)1*8+1*4+0*2+0*1=(в итоге перемножаем и складываем)8+4+0+0=(после сложение получилось число в 10-ной с.с) 12(10), то что (...)- это система счисления,записывается нижним индексом и без скобок,т.е старшей сестре 12 лет, если она пошла в школу с 111, то это 111(2)= 
=
=1*4+1*2+1*1=4+2+1=7(10) ---->сестра пошла в школу с 7-ми лет, тут 7 лет - 1 кл, 8 лет - 2 кл, 9 лет - 3 кл, 10 лет - 4 кл, 11 лет - 5 кл, 12 лет - 6 кл
= 
=1*4+0*2+0*1=4 (10) года
50*79=3950 символов на страницу.
Поскольку не указано, сколько символов в алфавите, возьмем 1 байт на символ.
Итого 3950 байт или (умножить на 8) 31600 бит. Теперь делим 100,000,000 на 31600. Получаем 3164,55 страниц.