Console Application C# Два числа называются дружественными, если каждое из них равно сумме всех делителей второго не считая самого этого числа. Найдите все пары дружественных чисел на отрезке [a;b]."
ответ 7 стаканов. подсчитал методом подбора. первое взвешивание:2 стакана и 1 тарелка= 1 кувшин. если представить тарелку как 5 стаканов то 1 кувшин =7 стаканов (2+5) второе взвешивание : 2 кувшина и стакан = 3 тарелки. по пред идущему взвешиванию 1 кувшин = 7 стаканов, значит 2 кувшина и стакан =15 стаканов(7*2+1).<== (на оной чаше весов) (на другой чаше) 3 тарелки, если 1 тарелка = 5 стаканам, то 3 тарелки=15 стаканам (5*3). значит 15 стаканов(два кувшина и стакан)=15 стаканов(три тарелки) значит по первому взвешиванию 1 кувшин=7 стаканов.
Фактически требуется вычислить значение следующего выражения:
В связи с ограниченной разрядностью представления целых чисел в традиционном Паскале, используется появившийся в PascalABC.Net 3.0 тип данных BigInteger, имеющий произвольную разрядность.
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016 begin var n:=ReadInteger('n='); var s:BigInteger:=0; for var i:=1 to n do begin var sp:BigInteger:=1; for var j:=i to 2*i do sp*=j; s+=sp end; Writeln('S=',s) end.
