Рассчитать необходимый обьем видеопамяти в Гб для пятиминутного фильма. Разрешение монитора 1280•1024, кол-ва цветов в изображении-256. Частота смены кадров в фильме 16 кадров/сек. 1.найдем глубину цвета в битах. 2.выразим глубину цвета в байтах. 3.найдем вес одного кадра (картинки) в байтах. 4.найдем сколько байт, весит одна секунда фильма(16кадров/сек). 5.переведем вес одной секунды фильма из байтов в Кб. 6.переведем вес одной секунды фильма из Кб в Мб. 7.представим продолжительность фильма в секундах. 8.посчитаем вес фильма в Мб. 9.переведем Мб в Гб. 10.округлим полученный результат до одного знака после запятой. ответ. Обьем видеопамяти для пятиминутного фильма? Гб.
895 =37F
895/16=55 остаток 15=F
55/16=3 остаток 7
3/16=0 остаток 3
1051 = 10000011011
1051/2=525 остаток 1
525/2=262 остаток 1
262/2=131 остаток 0
131/2=65 остаток 1
65/2=32 остаток 1
32/2=16 остаток 0
16/2=8 остаток 0
8/2=4 остаток 0
4/2=2 остаток 0
2/2=1 остаток 0
1/2=0 остаток 1
258 =102
258/16=16 остаток 2
16/16=1 остаток 0
1/16=0 остаток 1
4441 =10531
4441/8=555 остаток 1
555/8=69 остаток 3
69/8=8 остаток 5
8/8=1 остаток 0
1/8=0 остаток 1
4F =1001111
79/2=39 остаток 1
39/2=19 остаток 1
19/2=9 остаток 1
9/2=4 остаток 1
4/2=2 остаток 0
2/2=1 остаток 0
1/2=0 остаток 1
716 =1CE
462/16=28 остаток 14=E
28/16=1 остаток 12=C
1/16=0 остаток 1
Pascal
var
s : string = 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';
i : integer;
s1, sR : string;
begin
s:=s+' ';
i :=1;
sR :='';
s1:='';
while i <= length(s) do begin
if (s[i] = ' ') then begin
if s1[1] <> UpperCase(s1[1]) then
sR := sr + s1 + ' ';
s1:=''
end
else
s1:=s1 + s[i];
inc(i);
end;
delete(sR, length(sR), 1);
print(sR);
end.
А вот на PascalABC.Net. заметно короче будет
begin
var s := 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';
var a := s.ToWords.Where(v -> (v.First <> v.First.ToUpper)).JoinIntoString();
println(a);
end.