1/16 Кбайта это 64 байта
64 байта это 512 бит
всего точек 600*800=480 000
размер файла 512 мб
выясним размер 1 точки
512мб переведем в килобайты, далее в байты
512*1024*1024=536870912 байт размер картинки
536870912 делим на 480 000=1118.48 байт на 1 пиксель
16 млн цветов кодируются 3 байтами
составим пропорцию
16млн=3 байта
Х = 1118 байт
х= (1118*16)/3=5962.66 млн цветов
Ответ: 5962.66 млн цветов
А вообще под такие параметры не найдешь картинку) но это задача.
var
arr: array [1..100]of integer;
i, size: integer;
begin
writeln('Введите размерность последовательности: ');
readln(size);
for i := 1 to size do
readln(arr[i]);
i := 1;
repeat
writeln(arr[i], ' ');
inc(i);
until arr[i] = 0;
writeln(0);
end.
Var
S1,S2,S3:string;
i:integer;
Begin
Write('S1: ');ReadLn(S1);
Write('S2: ');ReadLn(S2);
For i:= 1 to Length(S1) do
if i mod 2 = 0 then S3:=S3+S2
else S3:=S3+S1[i];
S1:=S3;
Write('S1: ',S1);
End.
Пример:
S1: 123456789
S2: ||
S1: 1||3||5||7||9