ИНФОРМАТИКА. ЗАДАНИЯ ИНФОРМАТИКА. ЗАДАНИЯ

1. 2,5 сек

2. 16 000 байт

Объяснение:

1.

I = t * f * i * k, где  

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

t - длительность звучания (секунды)

f - частота дискретизации (Гц, количество значений амплитуды звука, фиксируемых за одну секунду)

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

k -  количество каналов записи (1 - моно, 2 - стерео и т.д.)

Дано:

I = 468,75 Кбайт = 3 840 000 бит

i = 16 бит

f = 48 кГц = 48 000 Гц

k = 2

Найти:

t

I = t * f * i * k

t = I / (f * i * k)

t = 3 840 000 / (48 000 * 16 * 2) = 3 840 000 / 1 536 000 = 2,5 сек

2.

I = K * i, где  

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

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

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

N = 2^i, где  

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

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

Дано:

К = 640 * 200 = 128 000 пикселей

N = 2 цвета

Найти:

I

2 = 2^i

2 = 2¹

i = 1 бит

I = 128 000 * 1 = 128 000 бит = 16 000 байт = 15,625 Кбайт

1 байт = 8 бит

1 Кбайт = 1024 байт

1 кГц = 1 000 Гц

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

   Begin

   if (N mod 10) > A then A:= N mod 10;

   N:=N div 10;

   End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

   Begin

   if A=B then C:=true;

   if N>0 then

      Begin

      A:=N mod 10;

      N:=N div 10;

      End;

   if A=B then C:=true;

   if N>0 then

      Begin

      B:=N mod 10;

      N:=N div 10;

      End;

   End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.