дешифровки: Const sh = '_.,'; Var St : String; i : Integer; Function DeCode(S : String; Tabl : String; k : Integer) : String; Var j,n : Integer; Begin For j:=1 to Length(S) do Begin n:=Pos(S[j],sh); If n>0 then Begin n:=n+k; While n>Length(sh) do n:=n-Length(sh); While n<=0 do n:=n+Length(sh); S[j]:=sh[n]; end end; DeCode:=S; end; Begin St:='ЗЫФЙГФШРЦ . ШД'; Writeln(Decode(St,sh,-6)); //For i:=-10 to 10 do Writeln(Decode(St,sh,i)); end.
Задача №2 800*600*16 (16 бит на пиксель это 65 536 цветов)=7680000 - бит информационный вес одного поля кадра. Допустим частота обновления экрана монитора 60 Гц, тогда 7680000*60 (Гц)=460800000 бит в секунду * 60 (секунд)= 27648000000 бит - информационная емкость потока фильма в течении 1 минуты. Постичаем в байтах 27648000000/8/1024/1024/1024=3.2186 Гигабайт - объём информационного потока Задача №3 за одну секунду пройдет 36 мегабайт 2 часа = 7200 секунд *36=259200 мегабайт=253.12 Гбайт Подробнее - на -
Человек в этом случае является устройством ввода.