Давайте решим задачу по вычислению значений y = x^10 и y = x^15 на языке Паскаль, избегая использования функции возведения в квадрат. Мы постараемся использовать минимальное количество дополнительных переменных.

1. Вычисление y = x^10:

1. Мы можем использовать последовательное умножение для вычисления x в степени 10.
2. Для этого мы будем умножать x на себя несколько раз.

Вот пример кода на Паскале:

var
    x, y: integer;
begin
    readln(x);
    y := x; // y = x
    y := y * y; // y = x^2
    y := y * y; // y = x^4
    y := y * y; // y = x^8
    y := y * x; // y = x^9
    y := y * x; // y = x^10
    writeln(y);
end;

Таким образом, мы вычислили x^10, используя всего одну дополнительную переменную y.

2. Вычисление y = x^15:

1. Аналогично, мы можем использовать последовательное умножение для вычисления x в степени 15.
2. Мы можем разбить 15 на суммы меньших степеней: 15 = 8 + 4 + 2 + 1.

Вот пример кода на Паскале:

var
    x, y: integer;
begin
    readln(x);
    y := x; // y = x
    y := y * y; // y = x^2
    y := y * y; // y = x^4
    y := y * y; // y = x^8
    y := y * x; // y = x^9
    y := y * y; // y = x^18
    y := y div x; // y = x^15
    writeln(y);
end;

В этом случае мы также использовали всего одну дополнительную переменную y и вычислили x^15, используя последовательное умножение.

Надеюсь, это поможет вам понять, как вычислять степени без возведения в квадрат! Если у вас есть дополнительные вопросы, не стесняйтесь задавать их.