Циклы Опции

[zinvor]

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

[volvo]

чето не получается

- это не диагностика ошибки... У ошибки есть номер, есть описание... При всем этом программу надо оформить (представить в виде собственно программы, а не фрагмента). Ты это сделал?

[zinvor]

program ggg;
var i,n:integer; s:real;
begin
writeln ('n='); readln(n);
s:=1;
for i:=2 to n do
s:=s+1/n;
writeln('s=',s);
readln;
end.

М

При публикации программ просьба использовать теги Lapp

[Lapp]

Прошу прощения, это моя ошибка.
Нужно делить не на n, а на i :

s:=s+1/i;