3. не используя функцию возведения в квадрат, напишите на языке паскаль наиболее короткие алгоритмы вычисления а) y=x¹° б)y=x¹⁵ или а) y=x^10 б)y=x^15 постараться использовать минимальное количество дополнительных переменных. 4. запишите на языке паскаль программу циклического обмена значениями трёх переменных a,b,c. схема циклического обмена: a ← b ← c. например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.

Для вычисления $y=x^{10}$ требуется 4 операции умножения, а для $y=x^{15}$ — 5 операций умножения. Для циклического обмена значений $abc$ используется одна вспомогательная переменная. ️ Шаг 1: Оптимизация возведения в степень Для минимизации количества операций и переменных используется метод последовательного умножения промежуточного результата. В случае $y=x^{10}$:

1. $y=x\cdot x$ ( $x^2$) $y=y\cdot y$ ( $x^4$) $y=y\cdot x$ ( $x^5$) $y=y\cdot y$ ( $x^{10}$)

В случае $y=x^{15}$:

1. $y=x\cdot x$ ( $x^2$) $y=y\cdot y$ ( $x^4$) $y=y\cdot x$ ( $x^5$) $y=y\cdot y\cdot y$ ( $x^{15}$)

️ Шаг 2: Реализация алгоритмов возведения в степень pascal

// а) y = x^10 y := x * x; // x^2 y := y * y; // x^4 y := y * x; // x^5 y := y * y; // x^10 // б) y = x^15 y := x * x; // x^2 y := y * y; // x^4 y := y * x; // x^5 y := y * y * y; // x^{15} 

Use code with caution.️ Шаг 3: Программа циклического обмена Для обмена $abc$ (где значение $b$ переходит в $a$, $c$ в $b$, а $a$ в $c$) необходимо сохранить значение одной переменной в буфер, чтобы оно не было затерто в процессе переприсваивания. pascal

program CyclicExchange; var a, b, c, t: integer; begin write('Введите a, b, c: '); readln(a, b, c); t := a; // Сохраняем исходное a a := b; // a получает значение b b := c; // b получает значение c c := t; // c получает исходное значение a writeln('Результат: a=', a, ' b=', b, ' c=', c); end. 

Use code with caution. Ответ: Алгоритм для $y=x^{10}$: y := x * x; y := y * y; y := y * x; y := y * y; Алгоритм для $y=x^{15}$: y := x * x; y := y * y; y := y * x; y := y * y * y; Код циклического обмена: t := a; a := b; b := c; c := t; Нужно ли подготовить полный код программы с вводом данных для проверки этих вычислений в среде PascalABC.NET?