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.
а)
var
x, y: integer;
begin
x := 5;
y := x;
for i := 1 to 9 do
y := y * x;
end.
б)
var
x, y: integer;
begin
x := 5;
y := x;
for i := 1 to 4 do
y := y x x;
end.
var
a, b, c, temp: integer;
begin
a := 1;
b := 2;
c := 3;
temp := a;
a := c;
c := b;
b := temp;
end.