Question

Сосчитать сумму чисел 1+1/2+1/3+1/4+1/5+1/6+1/7+1/8+1/9+1/10
Паскаль

Answer 1

Ответ:    

2.92896825396825

Pascal

var

 i:integer;

 x:double;

begin

 x:=0;

 for i := 1 to 10 do

   x:=x+1/i;

 writeln(x);

end.