Информатика. PascalABC.NET
(Цикл for)Дано целое число N (>0). Найти сумму
1+1/2+1/3+...+1/N

begin
  var n:=ReadInteger('n=');
  var s:=0.0;
  for var i:=1 to n do s:=s+1/i;
  Writeln('S=',s)
end.

Пример
n= 18
S=3.49510807819631