Ну раз значения всего 2, то 2 ^ 5 = 32 последовательности.
1. 5120 : 1024 = 5 мб
2. 8192 * 1024 = 8388608 мб
3 70*8=560 бит
4. 32*1024=32768кб
5. 5120 * 8 = 40960 бит
6. 9654 * 1000 = 9654000
7. 1120 : 8 = 140
VB.
Dim n As Integer
n = InputBox("Введите число:")<span>
MsgBox("В числе " & Len(CStr(n)) & " цифр.")
Pascal.
</span><span>Program N;
Var
I, S, N : Longint;
Begin
Writeln('Введите число'); Readln(I);
N:=1;
While I > 10 DO
BEGIN
I:=I DIV 10;
Inc(N);
end;
// c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
Write('</span>"В числе цифр "<span> = ',N);
Readln; end.
</span>
<em>Помог? Жми <u>Лучший!</u></em>
1. N=2^i;
32=2^5 => i=5 бит
I=128 КБ * 1024*8=2^20=1048576 бит
k=2^20/5
2. N=2^i;
1024=2^10 => i=10 бит
I=k*i=2^20/5*10=2097152 бит = 256 КБ
Pascal:
program Project;
var
a,b,c: integer;
min, max: integer;
begin
Write('a=');
Readln(a);
Write('b=');
Readln(b);
Write('c=');
Readln(c);
if (a>b) and (a>c) then
begin
max:=a;
if b>c then
begin
a:=c;
c:=max;
end
else
begin
a:=b;
b:=max;
end
end else
begin
if (b>a) and (b>c) then
begin
max:=b;
if a>c then
begin
b:=c;
c:=max;
end
else
begin
b:=a;
a:=max;
end
end else
begin
max:=c;
if a>b then
begin
c:=b;
b:=max;
end
else
begin
c:=a;
a:=max;
end
end
end;
Write('a=',a);
Write('b=',b);
Write('c=',c)
end.