Регистрация
Yaryycher
06.05.2021 01:10
Информатика
Есть ответ 👍

Омо мокрого
ULLABUCCCS
COLOUD​

131
249
Посмотреть ответы 1

Ответы на вопрос:

lisi2912
lisi2912
4,5(66 оценок)

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.

Популярно: Информатика