У нас имеется страниц - 2. В каждой 32 строки по 64 символа, значит общее количество символов будет 2*32*64 = 4096.
Теперь количество наших символов умножаем на информационный объем за символ, то есть для Unicode это 16 бит за символ.
4096 символов* 16 бит = 65536 бит.
8 бит = 1 байт.
1024 байта = 1 Кбайт
65536 бит / 8 = 8192 байта / 1024 = 8 Кбайт.
Ответ: 3) 8 Кб
5 возведи в квадрат, так как только 2 цифры(0 и 1) =25;
ВООООООООООООООООООООООООООООООООООООООТ
Const
auto = true;
n = 70;
var
a: array[1..n] of integer;
i: integer;
begin
for i := 1 to n do
begin
if auto then
a[i] := random(100)
else readln(a[i]);
if (a[i] <= 70) and (a[i] >= 30) and (a[i] mod 9 > 0) then
writeln(a[i]);
end;
end.
Var
i, j, k : integer;
a : array [0..9,0..9] of char;
procedure U(i,j:integer);
var c : char;
begin
c:=a[i,j]; a[i,j]:=' ';
if (c='W')and(a[i+1,j]='B') then U(i+1,j);
if (c='B')and(a[i+1,j]='W') then U(i+1,j);
if (c='W')and(a[i-1,j]='B') then U(i-1,j);
if (c='B')and(a[i-1,j]='W') then U(i-1,j);
if (c='W')and(a[i,j+1]='B') then U(i,j+1);
if (c='B')and(a[i,j+1]='W') then U(i,j+1);
if (c='W')and(a[i,j-1]='B') then U(i,j-1);
if (c='B')and(a[i,j-1]='W') then U(i,j-1);
end;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
for i:=1 to 8 do begin for j:=1 to 8 do
read(a[i,j]);
readln
end;
for i:=1 to 8 do
begin
a[0,i]:=' '; a[9,i]:=' '; a[i,0]:=' '; a[i,9]:=' '
end;
k:=0;
for i:=1 to 8 do
for j:=1 to 8 do
if a[i,j]<>' ' then
begin
k:=k+1; U(i,j)
end;
write(k);
close(output)
end. <span>
</span>