1.
1) 4*24*1000*16 ≈ 3*2^19 (бит/с)
2) 900 Мбайт=9*25*4*2^23 бит =9*25*2^25 бит
3) (9*25*2^25) / (3*2^19) = 3*25*2^6 (c) = 75*64 (c) =75*64/60 (мин)= 80(мин)
ответ 80 мин
2.
1) 640*480=(5*2^7)*(15*2^5)=5*15*2^12 пикселей
2) 240 Кбайт=15*2^4 *2^13 бит=15*2^17 бит
3) (15*2^17) / (5*15*2^13) = 2^4 / 5 бит =3,2 бит = 3 бит - 1 пиксель
4) 2^3=8 цветов ответ 8 цветов
3.
1) 80 *0,7=56 Мбайт - cжатый файл
80 Мбайт =5*2^4 *2^23 бит=5*2^27 бит
56 Мбайт=7*2^26 бит
2) 5*2^27 / 2^22 = 5*2^5 (с) = 160 секунд - время несжатого файла
3) 7*2^26 / 2^22 =7*2^4 (c) = 112 (c)
4) 23(c)+12(c)+112(c)= 147 (c) - время сжатого файла
5) 160-147=13 (с) ответ передача сжатого файла быстрее на 13 с
var a:STRING;
i,n,j,k,x,z,y:integer; d:boolean;
begin
readln(n);
read(a);
d:=false;
if (n=1)and (a='8') then d:=true;
if n=2 then begin
x:=ord(a[1]) - 48;
y:=ord(a[2]) - 48;
if((x*10+y) mod 8=0) or
((y*10+x) mod 8=0) then d:=true;
end
else
begin
for i:=1 to N-2 do
for j:=i+1 to N-1 do
for k:=i+2 to N do
begin
x:=ord(a[i])-48;
y:=ord(a[j])-48;
z:=ord(a[k])-48;
if((x*4+y*2+z) mod 8=0) or
((y*4+x*2+z) mod 8=0) or
((y*4+z*2+x) mod 8=0) or
((x*4+z*2+y) mod 8=0) or
((z*4+y*2+x) mod 8=0) or
((z*4+x*2+y) mod 8=0) then d:=true;
end; end;
if d then write('YES') else write('NO');
end.
