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

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

Question

Федосья

10 мая, 01:43

+1

Ответы (1)

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

Германа · Answer 1

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.