Циклический оператор, Помогите решить задачу Опции

[Chezzy_Chezz]

Написать прог-у которая вычисляет сумму первых n членов ряда 1+1/2+1/3...

[Freedom]

Вот

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

Сообщение отредактировано: Freedom - 3.06.2010 22:38

[volvo]

Надоело закрывать глаза на безответственность отвечающих.

Это неполное решение... Инициализации переменных нет. Приравнивается к ошибке.