1. Ищем количество всех пикселей: 1152*864=995328, каждый пиксель содержит 8 бит информации. Все пиксели содержат 995328*8=7962624 бит информации, или 995328 байт, или 7776 килобайт.
над вторым подумаю и отпишу
11010011-21211-в троичной(11010011(2)=1*2(0)+1*2(1)+0*2(2)+0*2(3)+1*2(4)+0*2(5)+1*2(6)+1*2(7)=211(10)
далее из десятичной в троичную
211/3 остаток 1 ответ 1
70/3 1 и 1
23/3 2 2
7/3 1 1
2/3 2 2
в итоге ответ 21211
АХ^A = БАХ
Очевидно, что А не равно 1, так как AX^1 = AX.
A также не может быть >=3, так как даже при возведении минимального двузначного числа в 3 степень получится четырехзначное число (10^3 =1000).
Следовательно, A=2
Так как в числах AX и БАХ последние цифры совпадают, то Х может быть 1, 5 или 6.
21^2 = 441 - не подходит
25^2 = 625 - подходит
26^2 = 676 - не подходит
Ответ: 25^2 = 625
Var A : array [1..4, 1..4] of integer ;
i,j, p,k: integer ;
Begin
randomize;
k:=1; p:=1;
For i:=1 to 4 do
Begin
For j:=1 to 4 do
Begin
A[i,j]:=random (100);
if A[i,j]>A[k,p] then
begin
k:=i;
p:=j;
end;
Write(A[i,j]:3);
end;
Writeln;
end;
writeln ('Максимальный элемент матрицы = ', A[k,p]);
write ('Он находится в строке №' , k);
writeln (' и в столбце №' , p);
Writeln('Меняем максимальный элемент матрицы и первый элемент первой строки:');
i:=A[k,p];
A[k,p]:=A[1,1];
A[1,1]:=i;
For i:=1 to 4 do
Begin
For j:=1 to 4 do Write(A[i,j]:3);
Writeln;
end;
end.
3кБ=3072б (3*1024)
ответ 3072 байта делим на количество символов12288
равно 0.25 байт
