//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var a:=ReadSeqIntegerWhile(x->x<>0).ToArray();
a.Transform(x->x*x);
write(a.Sum());
end.
1) 259₁₀ ⇒ 100000011₂
2) 12221
3) 600 Кбайт
4) 4 цепочкм
5) http://doc.com/ciao.doc ⇔ 4 - 5 - 1 - 7 - 6 - 3 - 2
Можно чуток оптимизировать, чтобы красивее смотрелось
<h2>ответ 30</h2>
количество путей, проходящих через точки:
А 1
Б 1
В 1
Г 3(А+Б+В)
Д 3(=Г)
Е 3(т.к. путь ВЕ не проходит через пункт Г, его не учитываем)
Ж 9(Д+Г+Е)
З 9(=Ж)
И 21(Д+Ж+З)
К 30(И+З)