For10. Дано целое число $$N$$ ($$> 0$$). Найти сумму $$1 + 1/2 + 1/3 + … + 1/N$$ (вещественное число).
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 |
program For10; var N,i:Integer; Rez:Real; begin Write('Введите N: '); Readln(N); rez:=0; For i:=1 to N do Rez:=Rez+1/i; Writeln(Rez); end. |
Другие задачи из раздела For можно посмотреть здесь.
Комментарии: