Пусть х - количество символов
16*x-8*x=4*2^13 (килобайты перевела в биты)
8х=2^15
x=2^12
x=4096
Здание, кровать, театр, дом
Var ar:array of integer;
i,n:integer;
procedure FirstPr(ar:array of integer;n:integer);
var i,k:integer;
begin;
for i:=1 to n do
if ar[i]<=25 then inc(k);
writeln(k);
end;
procedure SecPr(ar:array of integer;n:integer);
var i,k:integer;
begin;
for i:=1 to n do
if (ar[i]>=40) and (ar[i]<=50) then inc(k);
writeln(k);
end;
begin;
randomize;
readln(n);
setlength(ar,n+1);
writeln('Array');
for i:=1 to n do
begin;
ar[i]:=random(0,50);
write(ar[i]:4);
end;
writeln;
FirstPr(ar,n);
SecPr(ar,n);
<span>end.</span>
16 Мбайт=2^4*2^23 (бит)
8^x бит=2^3x (бит)
2^3x =2^27
3x=27
x=9