Вфайле input_1.txt записаны 7 чисел (в столбик). увеличить числа в 1,5 раза, переставить их в порядке убывания и записать в файл output_1.txt.​

Дано:

Разрешающая сканера 600 х 600 dpi.

Размер 10см x 15см.

Глубина цвета - 3 байта.

Найти:

Каков информационный объём этого файла?

Вначале переводим глубину цвета из байт в биты

3 байта * 8бит в байте = 24 бит

Вычисляем разрешение сканера в 1 дюйме квадрат

600*600 = 360 000 пикселей в 1 дюйм^2

Переводим размер картинки из квадратных сантиметров в квадратные дюймы.

10см = 3.937дюйма

15см = 5,906дюйма

10*15=150 см^2 = 3,937 * 5,906 = 23,25 дюйм^2

Вычисляем количество пикселей в изображении

23,25 дюйм^2 * 360 000 пикселей в 1 дюйм^2 = 8 370 000 пикселей

Информационный объём вычисляем по формуле

количество пикселей * глубину цвета =

8 370 000 пикселей * 24 бит = 200 880 000 бит.

Переводим в байты делением на 8.

25 110 000 байт

или же делим на 1024*1024 чтобы получить количество мегабайт

23,95 Мегабайт

Информационный объём отсканированного изображения =

25 110 000 байт или 23,95 Мегабайт

Объяснение:

с тебя лайк и лучший ответ!

{Заполнить двумерный массив N x N случайными числами из интервала [-10 ; 10], выяснить что больше сумма элементов лежащих над главной диагональю или под главной диагональю.}const nmax = 20;var A:Array[1..nmax,1..nmax] of integer; n,m,i,j,sumN,sumV:integer;
beginwrite('Введите число n');readln(n);for i:=1 to n do beginfor j:=1 to n do beginm:= random(20)-10;A[i,j]:= m;write(A[i,j]:4);end;writeln;end;
writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif i>j then begin write(A[i,j]:4);sumN:= sumN + A[i,j];end;end;writeln;end;
writeln;writeln;
for i:=1 to n do beginfor j:=1 to n do beginif i < j then begin write(A[i,j]:4);sumV:= sumV + A[i,j];end;
end;writeln;end;if sumN > sumV then write('Cумма элементов лежащих под главной диагональю больше')else write('Cумма элементов лежащих над главной диагональю больше');end.