//Элементы a[i,i] - элементы главной диагонали, в переменной p будем хранить их произведение.
var B: array[1..100, 1..100] of integer;
i, j, n: integer; P: longint;
begin
write('Введите размерность: ');
readln(n);
p := 1;
for i := 1 to n do begin
for j := 1 to n do begin
B[i, j] := Random(100);
write(B[i, j]:3);
if i = j then p := p * B[i, j];
end;
writeln;
end;
writeln('Произведение главной диагонали матрицы: ', p);
end.
Нет такого обозначения
a * 5% =a * 5/100
Урок если там қ должна быть такая
1. Для кодирования одного из 64 цветов требуется log(2)64 = 6 бит (2^6=64).
Объем информации в своде законов:
512*256*6 бит = 512*256*6 / 8 байт = 512*256*6 / (8*1024) Кбайт = 96 Кбайт
2. 128 Кбайт = 128*1024 байт = 128*1024*8 бит
Память для одного пикселя: 128*1024*8 / (512*256) бит = 8 бит
Количество цветов = 2^8 = 256