Var i,x,a,b,c,d,count:integer;
begin
count:=0;
for i:=1000 to 9999 do begin
a:=i div 1000;
b:=(i div 100) mod 10;
c:=(i mod 100) div 10;
d:=i mod 10;
if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) then
if (a>b) and (b>c) and (c>d) then begin
count:=count+1;
write(i,' ');
end;
end;
writeln;
writeln('Количество: ',count);
<span>end.</span>
ССС₁₃ = 13³ - 1 = 2196₁₀
ААА₁₁ = 11³ - 1 = 1330₁₀
888₉ = 9³ - 1 = 728₁₀
В одном байте 8 бит. В одном килобайте - 1024 байт. В одном мегабайте - 1024 килобайт
1,7 Кб=1,7*1024*8= 13926,4 бит
3,3 Мб=3,3*1024*1024*8= 27 682 406,4 бит
7,7 байт=7,7*8=61,6 бит
Вот и все