Question

Дано число A. Вычислить A8, используя вспомогательную переменную и три операции умножения. Для этого последовательно находить A2, A4, A8. Вывести все найденные степени числа A.

Answer 1

var
A, k: real;

begin
write(' A = ');
readln(A);
writeln('Результат:');
k := A * A; { <-- квадрат числа A }
writeln(' ', A, ' во второй степени: ', k);
k := k * k; { <-- четвертая степень числа A }
writeln(' ', A, ' в четвертой степени: ', k);
k := k * k; { <-- восьмая степень числа A }
writeln(' ', A, ' в восьмой степени: ', k);
readln
end.