1)дано целое число n(больше 0). найти сумму 1+1/2+1//n(вещественное - вопрос №1011211485803 от Ghdgfhs 24.08.2022 23:45

Question

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

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