2^12 бит = 4096 бит. в одном байте - 8 бит. 4096 бит = 512 байт. в 1 Кбайте - 1024 байта => 2^12 бит = 1/2 Кбайт
<-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_->
16Гбайт = 16*1024Мбайт=16*1024*1024Кбайт=16*1024*1024*1024байт
<-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_->
128 Мбайт = 128/1024 Гбайт
Алексеев - маляр;
Сидоров - пекарь;
Гришин = почтальон;
Петров - плотник;
Иванов - парикмахер.
//PascalABC.NET 3.2 сборка 1318
Const
gal=4,54609;
Var
x:real;
begin
readln(x);
writeln(x*gal);
end.
//2
Var
b1,q:real;
n:integer;
begin
readln(b1,q,n);
if (b1=0) or (q=0) then
begin
writeln('b1=0 or q=0');
exit;
end
else
if q=1 then
begin
writeln('Sum=',b1*n);
writeln('Bn=',b1);
end
else
begin
Writeln('Sum=',b1*(1-power(q,n))/(1-q));
Writeln('Bn=',b1*power(q,n-1));
end;
end.
Var s: String;
k, kol: Integer;
Begin
kol := 0;
readln(s);
while pos(' ',s) <> 0 do
begin
k := pos(' ',s);
if k <> 0 then
if k = 4 then begin
kol := kol + 1;
delete(s,1,4);
end else
delete(s,1,k);
end;
if length(s) = 3 then begin
kol := kol + 1;
delete(s,1,3);
end;
writeln(kol);
End.
Вот совершенная дизъюнктивная нормальная форма