1) дано целое число N (больше 0). Найти сумму 1+1/2+1/3… 1/N (вещественное число). Входные…

Question

35

1) дано целое число N (больше 0). Найти сумму 1+1/2+1/3… 1/N (вещественное число). Входные данные: ввести целое числоN (1 <= n <= 20) Выходныеданные: вывести сумму 1+1/2=1/3+… 1N с точностью до 4 цифр в дробной части. (в паскале)

в избранное ссылка

Знаете ответ?

teqoz · Accepted Answer

84

teqoz

02 апреля 2023

var H: real; N, i: integer; begin H: =0; readln (N); for i: =1 to N do H: =H+1/i; writeln (H: 6:4) end.

комментировать

в избранное ссылка отблагодарить