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

06062007ивант 06062007ивант    2   18.05.2019 19:40    3

Ответы
clon4 clon4  12.06.2020 01:03

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика