Срочно, решите в паскале!!! ИСПОЛЬЗУЮ ПРОЦЕДУРУ!!! Дано действительное число а. Не...

Question

Срочно, решите в паскале!!! ИСПОЛЬЗУЮ ПРОЦЕДУРУ!!!
Дано действительное число а. Не пользуясь никакими арифметическими операциями, кроме умножения , получить:
а4 за две операции (4- в степени)

Answer 1

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

procedure a4(a:real; var r:real);
begin
  r:=a*a;
  r:=r*r
end;

begin
  var a:=ReadReal('a=');
  var res:real;
  a4(a,res);
  Writeln(a,'^4=',res)
end.

Пример
a= 3.14
3.14^4=97.21171216