Решаем задачи Абрамян на Кумире. For10

For10. Дано целое число $$N$$ ($$> 0$$). Найти сумму $$1 + 1/2 + 1/3 + … + 1/N$$ (вещественное число).

Решение Дмитрий:

алг For10(арг цел N, рез вещ S)
дано N>0
нач
 цел k
 S:=0
 нц для k от 1 до N 
  S:=S+1/k
 кц
кон

алг For10(арг цел N, рез вещ S)

дано N>0

нач

цел k

S:=0

нц для k от 1 до N

S:=S+1/k

кц

кон

Другие задачи из раздела For можно посмотреть здесь.