Const n=8; var a:array[1..n,1..n] of integer; i,j,k,s,s1,si,dmin,smin:integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(50); write(a[i,j]:4); end; writeln; end; write('k = '); readln(k); s:=0; for j:=1 to n do s:=s+a[k,j]; writeln('s = ',s); dmin:=999999; smin:=999999; for i:=1 to n do if i<>k then begin s1:=0; for j:=1 to n do s1:=s1+a[i,j]; writeln('s',i,' = ',s1); if abs(s1-s)<dmin then begin dmin:=abs(s1-s); smin:=s1; si:=i; end; end; writeln('Номер строки = ',si,', smin = ',smin); end.
Ну давайте плавно разбираться с этим большим условием.
У нас документ состоит из текстовой части и из графической.
Начнём с текстовой.
Найдём общее кол-во символов.
k = 32 * 64 = 2048 символов
Каждый кодируется 1 байтом, следовательно.
I = 2048 * 1 = 2048 Байт
Теперь перейдём к графике.
x = 32 * 128
i = 8 бит = 1 байт
I = 32 * 128 * 1 = 4096 Байт
Теперь просто складываем объёмы.
4096 + 2048 = 6144 Байт
Нам нужно выразить в килобайтах.
Чтобы из байтов получить килобайты нужно разделить на 1024.
6144 / 1024 = 6 Кбайт
ответ: 6 Кбайт