Это программа
я могу только так сказать
1 задача:
program znan1;
uses crt;
var a:char;
begin
clrscr;
readln(a);
while a<>'.' do
begin
writeln(ord(a));
readln(a);
end;
<span>end.
2 задача:
program znan2;
uses crt;
var i,j:integer;
begin
for i:=1 to 16 do
begin
for j:=1 to 8 do
begin
write((i*j-1):5,'-',chr(i*j-1));
end;
writeln;
end;
readln;
<span>end.</span></span>
Меню на котором располагается весь основной контент
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 КБ
<span>65- кол-во вариантов результата (32 + 32 +1)
2 в 6 степени<65<2 в 7 степени
i=7
40960*7=286720 бит</span>