Program enot;
var a:array [1..10] of integer;
i,h:integer;
begin
h:=0;
for i:= 1 to 10 do
a[i]:=random(100);
for i:=1 to 10 do
if a[i] mod 5=0 then
h:=h+1;
writeln(h);
<span>end.</span>
(t - время передачи, I - объем данных, v - скорость передачи)
Дано:
t = 5 c
v = 1024 бит/с
I - ?
Решение:
бит
5120.0 бит = 640.0 байт = 0.625 Кбайт
720*1024*1024=754974720 байт - весь фильм 1 минуты
1024*768*60*16*Х=754974720
Х=1
всего один цвет - монохромное изображение