1)дано целое число n(больше 0). найти сумму 1+1/2+1//n(вещественное - вопрос №1011211485628 от рита2008 11.11.2022 10:32

Question

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

рита2008 · Answer

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....