266 минут понадобиться что передать 16 гигабайт по каналу 8мбит/с
<em><u>Программа на языке PascalABC.Net:</u></em>
var
sPred,sSucc,i,d:integer;
begin
sPred:=36;
for i:=2 to 127 do
begin
sSucc:=0;
while sPred>0 do begin
d:=sPred mod 10;
sSucc:=sSucc+d*sqr(d);
sPred:=sPred div 10
end;
sPred:=sSucc
end;
Writeln(sSucc)
end.
<em><u>Результат выполнения программы:</u></em>
153
Переведем 159 в двоичную сс. 100101111
ответ: 3
1101111 (в 2с/с) = 64+32+8+4+2+1=111 (в 10с/с)
111 (в 2с/с) = 4+2+1 = 7 (в 10 с/с)
Ответ: 7