ricardogalin

Anónimo respondió: Ejercicio 1. Uses CRT; Const VALORES = 3; var i,n, prod : Integer; r : real; Begin prod:=1; r:=0; For i:=1 to valores do begin Writeln('Introduzca un valor'); readln(n); prod:=prod*n; end; {r=prod^1/valores} {La raiz n-esima de un numero es ese mismo...