PascalABC.NET 3.7:
##var sumOfAP := function(a1, an, d: real):real → (a1 + an)/2*((an - a1)/d+1);var (a, b) := ReadInteger2('Введите a и b:');var sE := sumOfAP(a + a mod 2, b - b mod 2, 2);var sO := sumOfAP(a + 1 - a mod 2, b - 1 + b mod 2, 2);Print('Результат:', sE - sO)Пояснение:
Используется формула для нахождения суммы первых n членов арифметической прогрессии: , где
— первый член прогрессии,
— последний член,
—разность прогрессии.
5. 417₈ + CA₁₆ = 731₈
6. 13₉
Объяснение:
5.
417₈ = 7*8⁰ + 1*8¹ + 4*8² = 271₁₀
CA₁₆ = A*16⁰ + C*16¹ = 202₁₀
473₁₀ = 1*8⁰ + 3*8¹ + 7*8² = 731₈
8.
12₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 1*2³ = 1100₂
12₁₀ = 0*3⁰ + 1*3¹ + 1*3² = 110₃
12₁₀ = 0*4⁰ + 3*4¹ = 30₄
12₁₀ = 2*5⁰ + 2*5¹ = 22₅
12₁₀ = 0*6⁰ + 2*6¹ = 20₆
12₁₀ = 5*7⁰ + 1*7¹ = 15₇
12₁₀ = 4*8⁰ + 1*8¹ = 14₈
12₁₀ = 3*9⁰ + 1*9¹ = 13₉
12₁₀ = 1*11⁰ + 1*11¹ = 11₁₁
12₁₀ = 0*12⁰ + 1*12¹ = 10₁₂
12₁₀ = 12*13⁰ = C₁₃
12₁₀ = 12*14⁰ = C₁₄
12₁₀ = 12*15⁰ = C₁₅
12₁₀ = 12*16⁰ = C₁₆