Дано вещественное число а. Пользуясь только операцией умножения, получить: а^2, а^5 и а^17 за шесть операций.Pascal
Максимум за 6 или нужно 6 конкретно?
конкретно
begin
var a := ReadReal;
var b := a * a; // a^2
b.Println;
b := b * b;
b := a * b; // a^5
var c := b * b;
c := c * b;
a := a * c; // a^16
a.Println
end.