Помогите с решением задачи

[vailf]

Помогите с решением задача, в программирование полный ноль(

[p51x]

идите во фриланс тогда

[Stilet]

var n,f:integer; s:double;
begin
 f:=1; for n:=1 to 20 do begin s:=s+(n+1)/f; f:=f*n; end; write(s); readln;
end.

Кстати, имей ввиду - этот код пусть даже он верный тебе не поможет.

[Аватар]

А может и поможет. Формально он правильный, а насчет переполнения не уверен, что все преподы догадаются

[Arigato]

Формула не рекуррентная.