Question

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.

Answer 1

1)

var
    n: integer;   
    y, x: real;

begin
    readln(x, n);
    y := 1;
    while n > 0 do
    begin
        y := y * x;
        n := n - 1;
    end;
    writeln(y);
end.

2)

var
    a, b, c, t, i: integer;

begin
    readln(a, b, c);
    Writeln(0:2, ': a=', a, ' b=', b, ' c=', c);
    for i := 1 to 10 do
    begin
        t := a;
        a := b;
        b := c;
        c := t;
        Writeln(i:2, ': ', a, ' ', b, ' ', c);
    end;
end.