07/10/30 18:01:31
エラーが消えません。どうしたらいいですか？
たびたびすいません
i : real;
n : integer;
ANS : real;
function factrial(i:integer): real;
begin
if n=1 then begin
factrial := 1;
end else begin
factrial := i*factrial(i-1);
end;
begin
write('Enter n : ');
readln(n);
For i:=1 to n do
begin
ANS:=ANS+(1/factorical(i));
end;
end;
begin
writeln('N = ', ' ANS = ', ANS:8:6);
end.