PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:'); Writeln('*** Исходный массив ***'); var a:=MatrRandom(m,n,-99,99); a.Println(4); Writeln(4*n*'-'); for var i:=0 to m-1 do a.SetRow(i,a.Row(i).OrderBy(t->Abs(t mod 10)).ToArray); Writeln('*** Полученный массив ***'); a.Println(4) end.
Замечание. В связи с некорректно поставленным вопросом принято решение сортировать каждую строку массива независимо от прочих по возрастанию последней цифры.
4)Количество информации(бит) получим разделив объем файла(бит) на количество пикселей. i=(1,5*1024*1024*8)/(1024*512)= 24 бит
5)Определим глубину цвета i=V/N, где V-объем изображения (бит), N - количество пикселей i=(16*1024*8)/(256*128)= 4 бит Найдем количество цветов N=2^i N=2^4= 16 цветов
6)Количество памяти на 1 страницу: 640*480*24= 7372800 бит= 900 Кбайт Количество страниц= (2*1024)/900= 2,28 ответ: 2 страницы
a = int(input(“Введите значение a:”))
c = int(input(“Введите значение c:”))
y = (2*(a+c))/(x*3)
print(y)