12) var A: array[1..7] of integer;
k: integer;
begin
randomize;
for k := 1 to 7 do
A[k] := random(5);
write("vvedite den' nedeli: ");
readln(k);
if (k < 1 or k > 7) writeln("error");
else if ( A[k] <> 0) then writeln("segodnya urokov: ", A[k]);
else write("vyhodnoy");
end.
13) var k: real;
begin
write("vvedite chislo: ");
readln(k);
if (k > 0) then write("polozhitel'noe, ");
else if (k < 0) then write("otricatel'noe, ");
else write("nol', ");
if (k mod 1 <> 0) then write("neceloe, ");
else write("celoe, ");
if (k mod 2 <> 0) then writeln("nechetnoe");
else writeln("chetnoe");
end.
Для начала найдем вес одного символа.
6*1024*8=49152 бит.Вес одного символа равняется 49152/6144=8 битN=2^i, где i - вес одного символа, N - количество символов в алфавите.N=2^8=256 символов
100*30*60=180000 байт
28800/8=3600 байт/с
180000/3600=50 секунд