1) Объем видеопамяти I=k*i, где k- количество точек изображения, i- глубина цвета. Глубина цвета i=㏒₂N, где N- количество цветов палитры. При N=16 i=㏒₂16=4 бит тогда объем памяти I=(800*600)*4= 1920000 бит
При N=512 i=㏒₂512= 9 бит Количество точек изображения k=I/i= 1920000/9= 213333 точек Отсюда размер изображения может быть например: 600х355 точек
2) Определим глубину цвета: i= ㏒₂128= 7 бит Тогда количество точек изображения k=I/i= (2*1024*8)/7= 2340 точек
3)Объем памяти звукового файла I=t*i*n*k, где t- время звукозаписи (c.), i - глубина кодирования звука (бит), n- частота дискретизации (Гц), k- количество каналов звукозаписи.
Program SomeProgram;var a : array[0..3] of Integer = (1,7,-7,-14); i : integer; count : integer = 0;begin // с возможно вам нужно с обычного for for i in a do begin if ((i div 7) < 0 ) then begin count := count + 1; end; end; writeln('(for) количество подходящих чисел: ', count); // с количество подходящих чисел: ', count); // с тут главное правльно поставить условие после until i := 0; count := 0; repeat if ((a[i] div 7) < 0) then begin count := count + 1; end; i := i + 1; until i = length(a); writeln('(repeat until) количество подходящих чисел: ', count); end.
