Program Frank;
const n=20;
TYPE mas=array[1..n] of integer;
var a:mas;i:integer;
begin
for i:=1 to n do begin
a[i]:=sqr(i);
write(' ',a[i]);
end;
end.
1) 100х100 = 10 000
каждая точка (либо черный либо белый) это 1 бит. Соответственно 10 000 бит. В байтах 1250
2) клеток 96 (т.е. 96 бит) делим на 8 (1 байт это 8 бит)
96:8=12 ответ: 12байт
101011011=1*2^0+1*2^1+1*2^3+1*2^4+1*2^6+1*2^8=1+2+8+16+64+256=347
100011001=1*2^0+1*2^3+1*2^4+1*2^8=1+8+16+256=281
1110101001=1*2^0+1*2^3+1*2^5+1*2^7+1*2^8+1*2^9=1+8+32+128+256+512=937