Дано число A. Вычислить A8, используя вспомогательную переменную и три операции умножения. Для этого последовательно находить A2, A4, A8. Вывести все найденные степени числа A.
uses
PT4;
var
a, a2, a4, a8: real;
begin
Task('Begin27');
read(a);
a2 := sqr(a);
a4 := sqr(a2);
a8 := sqr(a4);
write(a2, a4, a8);
end.
Так-же возможно и другое решение:
uses
PT4;
var
a: real;
begin
Task('Begin27');
read(a);
write(sqr(a), sqr(sqr(a)), sqr(sqr(sqr(a))));
end.
