3. Составление программы решения задачи. Даны два числа А и В. Если число В отрицательное, то вычислить произведение этих чисел, в противном случае вычислить их сумму. (напишите код программы)

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₁₆

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 членов арифметической прогрессии:   , где — первый член прогрессии, — последний член, —разность прогрессии.

sumOfAP -- функция расчёта суммы арифметической прогрессии.(a, b) -- вводимые числа.ReadInteger2(prompt) -- выводит приглашение к вводу prompt и возвращает кортеж из двух значений типа integer, введенных с клавиатуры.sE и sO -- "sum of Even" и "sum of Odd", сумма чётных и сумма нечётных соответственно.Print -- выводит значения на экран, после каждого значения выводит пробел.