Processing math: 0%

$\newcommand{\eps}{\varepsilon} \newcommand{\RR}{\mathbb{R}} \newcommand{\rd}{\operatorname{d}} \newcommand{\set}[1]{\left\{#1\right\}}$

Решаем задачи Абрамян на Кумире. 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 можно посмотреть здесь.

➤