Нужет только ответ) Сканируется цветное изображение размером 25,4×25,4 см. Разрешающая сканера — 600×1200 dpi, глубина цвета — 4 бита. Какой информационный объём будет иметь полученный графический файл?
1 дюйм = 2,54 см, поэтому изображение размером 10x10 дюймов,
в одном квадратном дюйме 600x1200 точек, количество точек на данном изображении 10*10*600*1200 = 72000000 точек = 72*10^6. У каждой точки есть свой цвет, который кодируется 16 битами.
Const N = 7; // количество наименований товаров Var A:array[1..N,1..3] of integer; i,k,S:integer; Begin For i:= 1 to N do Read(A[i,1],A[i,2],A[i,3]); k:=0; For i:= N downto 1 do if A[i,2] = 0 then k:=i; if k > 0 then Begin Write('00 - ',A[k,1]*A[k,3]); S:=0; For i:= k+1 to N do if A[i,2] = 0 then Begin Write('+',A[i,1]*A[i,3]); S:=S+A[i,1]*A[i,3]; End; if S <> 0 then Write('=',S+A[k,1]*A[k,3]); WriteLn; End; k:=0; For i:= N downto 1 do if A[i,2] = 1 then k:=i; if k > 0 then Begin Write('01 - ',A[k,1]*A[k,3]); S:=0; For i:= k+1 to N do if A[i,2] = 1 then Begin Write('+',A[i,1]*A[i,3]); S:=S+A[i,1]*A[i,3]; End; if S <> 0 then Write('=',S+A[k,1]*A[k,3]); WriteLn; End; k:=0; For i:= N downto 1 do if A[i,2] = 10 then k:=i; if k > 0 then Begin Write('10 - ',A[k,1]*A[k,3]); S:=0; For i:= k+1 to N do if A[i,2] = 10 then Begin Write('+',A[i,1]*A[i,3]); S:=S+A[i,1]*A[i,3]; End; if S <> 0 then Write('=',S+A[k,1]*A[k,3]); WriteLn; End; k:=0; For i:= N downto 1 do if A[i,2] = 11 then k:=i; if k > 0 then Begin Write('11 - ',A[k,1]*A[k,3]); S:=0; For i:= k+1 to N do if A[i,2] = 11 then Begin Write('+',A[i,1]*A[i,3]); S:=S+A[i,1]*A[i,3]; End; if S <> 0 then Write('=',S+A[k,1]*A[k,3]); WriteLn; End; End.
Program odin; - название программы var i,n,k,j : integer; - введение переменных i,n,k,j типа integer (целое число) begin - начало программы i:=1; - присвоить переменной i значение 1 For i:=2 to n do - цикл в котором переменной i присваиваются значения от 2 до n ( i = 2, 3, 5 ... n) begin - начало цикла for k:=0; - k присваивается 0 For j:=2 to i-1 do цикл в котором переменной j присваиваются значения от 2 до i-1 if i mod j = 0 then k:=1; - если остаток от деления переменной i yf переменную j равно 0, то присвоить переменной k значение 0 if (k=0) and (n mod i = 0) then writeln(i); - если переменная k имеет значение 0 и остаток от деления переменной n на переменную i равно 0, то вывести на экран значение переменной i end; - конец цикла for end. - конец программы
274 мб
Объяснение:
1 дюйм = 2,54 см, поэтому изображение размером 10x10 дюймов,
в одном квадратном дюйме 600x1200 точек, количество точек на данном изображении 10*10*600*1200 = 72000000 точек = 72*10^6. У каждой точки есть свой цвет, который кодируется 16 битами.
Информационный объем файла = 72*(10^6)*4 бит =
= 274 мб
Подробнее - на -