Pascal ABC SOS

[25-17]

Помогите решить задачи в Pascal ABC
1.Дано целое число N>0 найти сумму числового ряда 1+1/2+1/3+...1/N Помогите пожалуйста!

[Disazakon]

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

[....NIKE..... 1]

Kalashnikov, хах, а че будет за это?

[DELETE]

перебор

Добавлено через 00:31 мин.
ну 2 сообщение :):

[....NIKE..... 1]

с тебя over90000 монет))))

[anviik]

ахах