25 байт = 25*8=200 бит
30 кб = 30* 1024 = 30720 байт
9 мб = 9*1024*1024=9437184 байт
6 кб = 6*1024*8=49152 бит
288 бит = 288/8=36 байт
5242880 тб = 5242880 *1024*1024*1024=5242880*2^30 кб
LOOKUP(C2,H$2:H$6,I$2:I$6)
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>
Название команды :купи билет - 4)получи билет.
название команды :займи своё место - 3)найди свой ряд.