в мегабайтах будет в 1024 раза меньше,
в килобайтах в 1024*1024 раза меньше,
в гигабайтах в 1024*1024*1024 раза меньше,
в терабайтах в 1024*1024*1024*1024 раза меньше.
вот и все
<span>время будет занимать видео файл, передаваемый с разрешением кадра 600 х 400 пикселей с 16 битовой глубиной цвета, скоростью воспроизведения 24 кадров в секунду и объемом в 10 Гбайт. Известно, что стерео звук, наложенный на видео имеет 128 уровней громкости, частота дискретизации равна 32 КГц. Відповідь: 40 мин.</span>
Var N,k,sum : Integer;
Begin
sum:=0;
Readln(N,k);
While N>0 do
Begin
If (N mod 10)>k then sum:=sum+(N mod k);
N:=N div 10;
end;
end.
или так
Var N,k,sum : Integer;
Begin
sum:=0;
Readln(N,k);
While N>0 do
Begin
sum:=sum+(N mod 10)*Ord((N mod 10)>k);
N:=N div 10;
end;
end.
или так
Var N,k : Integer;
Function sum(N,k : Integer) : Integer;
Begin
If (N>0) and ((N mod 10)>k) then sum:=(N mod 10)+sum(N div 10,k) else sum:=0;
end;
Begin
Readln(N,k);
Writeln(sum(N,k));
end.
Дано: K=64*128
I=8Кбайт
Найти N
K=64*128=8192 пикселей всего
I=8 КБайт=65536 бит
I=K*i
i= 65536/8192=8 бит
По формуле N=2^i
следует что N=2^8=256
Ответ: 256 Цветов в палитре изображения
Море-орел-лото-очаг-гном-мышь...
