Циклы Опции

[zinvor]

Помогите пожалуйста решить задачу:Дано вещественное число A(>1).Найти сумму 1+1/2...+1/N
Заранее спасибо!

[Lapp]

Дано вещественное число A(>1).Найти сумму 1+1/2...+1/N

Дано: в огороде бузина.
Найти: в Киеве дядьку..

Найти сумму 1+1/2...+1/N несложно:

s:=1;
for i:=2 to N do s:=s+1/N;
WriteLn(s);

Но хочется знать, какая тут связь с таинственным числом А..

[zinvor]

Насчет числа А сам не знаю наверное при наборе сделали отпечатку
а программку набираю чето не получается пишет ошибка