Составить программу для вывода в столбик таблицу умножения на 9.

var a: array[1..10,1..10]of integer;

i,j: integer;

begin

for i: =2 to 10 do a[i,1]: =i-1;

for i: =2 to 10 do a[1,i]: =i-1;

for i: =2 to 10 do

for j: =2 to 10 do

a[i,j]: =a[i,1]*a[1,j];

for i: =1 to 10 do begin

for j: =1 to 10 do

write(a[i,j]: 3); if j=10 then writeln; end;

end.

для матрицы 8*8

код

00111111

01000001

10000001

01000001

00111111

00010001

00100001

11000001

объем 8 байт

для символьного 1 байт в ascii

2 байта в unicode

минимально возможное число бит для десятичных цифр равно 4,значит инф объем = 150симв * 4бит =600 бит,

ответ: 600 бит