1)дано целое число n(больше 0). найти сумму 1+1/2+1//n(вещественное - вопрос №1485403101121 от hasmikaydinyan 24.07.2021 11:09

Question

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

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