Текстовый числовая звуковая графическая комбинированная
1800БАЙТ=14400БИТ
СЛ. ЗА 1 СЕКУНДУ МОЖНО ПЕРЕДАТЬ ТЕКСТ ОБЬЕМОМ 1800 БАЙТ
256 цветов кодируются 8 битами (что равно 1 байту), т.к. 2^8=256 и в 1 байте 8 бит. Т.е. на каждый пиксель изображения нужен 1 байт видеопамяти. Итого:
800*600*1=480000 байт на 1 кадр. Всего у нас 16 кадров в секунду, а весь ролик длится 1 минуту=60 сек.
Итого 480000*16*60=460800000 байт = 460800000/1024/1024 мегабайт = 439,453125 мегабайт.
1. Program enot;
Var A: array[1..8] of real;
i:integer;
begin
for i:= 1 to 8 do
begin
a[i]:=random(41)-20;
writeln(a[i]:8:3);
end;
<span>end.
2. </span>Program fg;
<span>Var a: array [1..13] of integer;
i:integer;
begin
writeln('первоночальный массив: ');
for i:= 1 to 13 do
begin
a[i]:=random(13)+5;
writeln(a[i], ' ');
end;
writeln('получившийся массив: ');
for i:= 13 downto 1 do
writeln(a[i],' ');
<span>end.
3.
Program enot;
Var a: array [1..7] of integer;
i:integer;
begin
for i:= 1 to 7 do
begin
a[i]:=random(25)+104;
writeln(a[i]);
end;
<span>end.</span></span></span>