. Заполнить массив из 6ти чисел с клавиатуры и подсчитать сумму всех его элементов неравных 5

12,49 Гбайт

Объяснение:

I = K * i

I - информационный объём изображения (размер файла, содержащего изображение)

K - количество точек (пикселей)

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

N = 2^i

N - количество цветов в палитре

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

dpi (dots per inch) - точек на дюйм

Чтобы узнать количество точек в изображении нужно умножить размеры изображения на разрешающую сканера.

1 байт = 8 бит

1 Кбайт = 1 024 байт

1 Мбайт = 1 024 Кбайт

1 Гбайт = 1 024 Мбайт

Дано:

K = 48,26 * 48,26 * 1 200 * 1 200 = 3 353 799 744 точек

i = 32 бита = 4 байта

Найти:

I

I = 3 353 799 744 * 4 = 13 415 198 976 байт = 13 100 780,25 Кбайт ≈ 12 793,73 Мбайт ≈ 12,49 Гбайт

Команда For:

For x:=1 to 9 do Writeln(x)

Команда While:

x:=-5;

While x<9 do

begin

y:=abs(x);

Writeln(y);

x:=x+1

end;

Объяснение:

Цикл For:

For переменная-счетчик := начальное значение to конечное значение do

For x:=1 to 9 do

x - переменная-счетчик

1 - начальное (минимальное) значение переменной-счетчика

9 - конечное (максимальное) значение переменной-счетчика

начальное значение <= конечного значения  (если это не так, то тело цикла не выполнится ни разу)

В цикле переменная-счетчик автоматически увеличивается на 1 каждый раз при выполнении тела цикла, пока не достигнет конечного значения включительно.

В цикле While переменную надо увеличивать (или уменьшать) в теле цикла, но зато это можно делать на нужный шаг.