Question

PASKAL
Пользуясь только операцией умножения, вычислить а^27 за шесть операций умножения, используя в вычислениях максимум одну дополнительную переменную. Провести три запуска при следующих данных: а=2; а=-2; а=1.25.​
То что нужно вывести(на примере файла)

Answer 1

program power;

var

 a, a2, a4, a8, a16, a24, a27: real;

begin

 write('Введіть число a: ');

 readln(a);

 a2 := a * a;

 a4 := a2 * a2;

 a8 := a4 * a4;

 a16 := a8 * a8;

 a24 := a16 * a8;

 a27 := a24 * a2;

 writeln('a^27 = ', a27);

end.

перевіриш вже сам