Дана некоторая последовательность C. Найти максимальный номер I, при котором выполнено нижеследующее условие: C1=Ln(1+1!), C2=Ln(1+3!),C3=Ln(1+5!)...
Ci <1.0e+06
Вот начал делать:
Program zadacha;
uses crt;
Function Fact(N: Word): LongInt;
Begin
If N = 1 then
Fact:= 1
else
Fact:= N * Fact(N-1);
End;
var m, i,c:real;
begin
m:=1;
i:=1;
while c<1.0e+06 do
begin
c:=ln(1+i);
m:=m+2;
i:=Fact(round(m));
end;
writeln©;
readln;
end.
По моему тут ошибка с объявлением переменных. Помогите пожалуйста!