👤

aJUTATI VA ROG )) SA ELABOREZ

AJUTATI VA ROG SA ELABOREZ class=

Răspuns :

Program nume_program;
function putere(n,e:Longint):Longint; 
var i,p:Longint;
begin
    p:=1;
    for i:= 1 to e do p:=p*n;
    putere:=p;
end;
Var       
   a,e:Longint;
   F:Double;
Begin
   a := 5;
   e := 20;
   F := (putere(a,20) + putere(e,5))/abs(putere(a,5));
   writeln(sqrt(F));
End.