1)дано целое число n(больше 0). найти сумму 1+1/2+1//n(вещественное - вопрос №1486305101121 от 5777Гусь111 11.05.2023 03:11

Question

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

5777Гусь111 · 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....