Чтобы удобнее найти было, не?
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do s+=1/i;
Writeln('S=',s)
end.
<u>Пример</u>
n= 10
S=2.92896825396825
Вход: CD-DVD, дискеты, сканер, ввод с клавиатуры, интернет, флешка, запись с микрофона
Вывод: (монитор), печать, флешка,